在R shiny中双击leafletoutput替换plotoutput

Question

我有plotOutput的输出，当双击地图时，我希望看到leafletoutput的输出。在下面的代码中，当双击地图时，传单地图显示在谷歌地图下方。在双击之前，第一个图像显示但双击后，我只想看到传单地图。有关如何做到这一点的任何建议吗？

   library(shiny)
   library(shinydashboard)
   library(leaflet)
   library(dismo)
   library(ggmap)
   library(dplyr)

 shinyApp(
 ui = dashboardPage(
 dashboardHeader(title=""),

 dashboardSidebar(width = 200 ),


dashboardBody(   

  fluidRow(

    plotOutput("USA_GoogleMap",dblclick='plot_dblclick'),
    leafletOutput("leaflet_map")


  )
)),

 server=function(input, output, session) {

double_clicked <- reactiveValues(

center = NULL 
)

  # Handle double clicks on the plot

observeEvent(input$plot_dblclick, {

double_clicked$center <- c(input$plot_dblclick$x,input$plot_dblclick$y)

 })



output$USA_GoogleMap<-renderPlot({

statesMap = map_data("state")

xy=cbind(statesMap$long,statesMap$lat)
y=c(36.4,41.5,42.25,27.7,32.77)
x=c(-115.5,-100,-75,-81.5,-97.45)
state=c("Nevada","Nebraska","New York","Florida","Texas")
bases=cbind(x,y)
bases_mercator=data_frame(Mercator_X=Mercator(bases)[,1],Mercator_Y=Mercator(bases)[,2],State=state)


g = gmap(xy, type='satellite',zoom=4)   
plot(g, inter=TRUE)
points(Mercator(bases) , pch=20,cex=16, col=adjustcolor("white", alpha=0.2))
points(Mercator(bases) , pch=20,cex=16, col=adjustcolor("yellow", alpha=0.4))
text(bases_mercator$Mercator_X,bases_mercator$Mercator_Y,state)

})


 output$leaflet_map <- renderLeaflet({
if(!is.null(double_clicked$center)){

  leaflet()%>%setView(lng = -71.0589, lat = 42.3601, zoom = 12)%>%addTiles()
 }
})
}
   )
 shinyApp(ui = ui, server = server)

第一张图片

第二张图片

Answer 1

首先让我先说一下 - 这是一个比我表现更好的方法。我还没找到。我确信一个比我所知道的更好的程序员，但至少我可以说这是有效的。即使它很可怕。隐藏情节的关键是使用conditionalPanel（我以前不熟悉）。

我有一个文本触发器，用于识别是否双击了该图，并使用该触发器来触发是否显示该面板。但是，我无法在不使用textOutput调用它的情况下初始化文本...所以我有一个textOutput调用，字体大小为零。同样，必须有一个更多更好的触发方式，而不是我这样做......但同样，至少它是有效的。希望它会有所帮助。

library('shiny')
library('shinydashboard')
library('leaflet')
library('dismo')
library('ggmap')
library('dplyr')

shinyApp(
  ui = dashboardPage(
    dashboardHeader(title=""),

    dashboardSidebar(width = 200 ),

    dashboardBody(   

      fluidRow(
        conditionalPanel(
          condition = 'output.condition == 0',
          plotOutput("USA_GoogleMap",dblclick='plot_dblclick')
        ),
        leafletOutput("leaflet_map"),
        textOutput('condition'),
        tags$head(tags$style("#condition{font-size: 0px}"))

      )
    )),

  server=function(input, output, session) {

    double_clicked <- reactiveValues(

      center = NULL 
    )

    # Handle double clicks on the plot

    observeEvent(input$plot_dblclick, {

      double_clicked$center <- c(input$plot_dblclick$x,input$plot_dblclick$y)

    })

    output$USA_GoogleMap<-renderPlot({
      if(is.null(double_clicked$center)){
        statesMap = map_data("state")

        xy=cbind(statesMap$long,statesMap$lat)
        y=c(36.4,41.5,42.25,27.7,32.77)
        x=c(-115.5,-100,-75,-81.5,-97.45)
        state=c("Nevada","Nebraska","New York","Florida","Texas")
        bases=cbind(x,y)
        bases_mercator=data_frame(Mercator_X=Mercator(bases)[,1],Mercator_Y=Mercator(bases)[,2],State=state)

        g = gmap(xy, type='satellite',zoom=4)   
        plot(g, inter=TRUE)
        points(Mercator(bases) , pch=20,cex=16, col=adjustcolor("white", alpha=0.2))
        points(Mercator(bases) , pch=20,cex=16, col=adjustcolor("yellow", alpha=0.4))
        text(bases_mercator$Mercator_X,bases_mercator$Mercator_Y,state)

      }

    })


    output$leaflet_map <- renderLeaflet({
      if(!is.null(double_clicked$center)){

        leaflet()%>%setView(lng = -71.0589, lat = 42.3601, zoom = 12)%>%addTiles()
      }
    })

    output$condition <- renderText({
      ifelse(!is.null(double_clicked$center), 1, 0)
    })

  }

)