r - 以前の選択に基づいて、ドリルダウン selectInput() に従って動的に変更されたマップを表示する方法は?

Question

に基づいてマップをレンダリングしたいと思いますselectInput()。私は 2 つ持っていますselectInput()s: 最初の 1 つの product_type と 2 番目の product_name。2 番目selectInput()のドロップダウン オプションでは、最初の関連のみを表示する必要がありますselectInput()。これらのドリルダウン入力に基づいて、マップが動的に変化する必要があります。

コードは次のとおりです。

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidPage(
      box("", 
          leafletOutput("abc", width = '100%', height = 300),
      
          height = 350, width = 12),
  
      box("", 
          selectInput('vtype', label = 'Prod Type',choices = brand$prod_type),
          selectInput('vname', label = 'Prod Name',choices = brand$prod_name),
          width = 4),
  
      valueBoxOutput("gr", width = 8)
  
    )
  )
))

server <- shinyServer(function(input,output,session){
  a <- ship %>% select(prod_name,prod_type,LON,LAT) %>% filter(prod_type == input$vtype)
  output$gr <- renderValueBox({
    box(table(a))
  })
  output$abc <- renderLeaflet({

      leaflet() %>% addProviderTiles(providers$OpenTopoMap ) 
%>% setView(lat = a$LAT ,lng = A$LON, zoom = 4)
  }) 

})

shinyApp(ui,server)

マップ内の動的に変更されたポイントはマークアップする必要があります。試しましたが、コードをビルドできませんでした。

このコードに関するヘルプは、私にとって優雅です。