在R中的单叶地图上单击按钮时显示和隐藏Datatable

install.packages("shiny")
install.packages("leaflet")
library(shiny)
library(leaflet)

ui <- fluidPage(
  leafletOutput("map"),
  actionButton("toggle", "Toggle DataTable")
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      setView(lng = 0, lat = 0, zoom = 2)
  })
  
  observeEvent(input$toggle, {
    if (is.null(input$map)) {
      output$map <- renderLeaflet({
        leaflet() %>%
          addTiles() %>%
          setView(lng = 0, lat = 0, zoom = 2) %>%
          addMarkers(lng = 0, lat = 0, popup = "Hello World!")
      })
    } else {
      output$map <- renderLeaflet({
        leaflet() %>%
          addTiles() %>%
          setView(lng = 0, lat = 0, zoom = 2)
      })
    }
  })
}

shinyApp(ui, server)