参考从一个魔像模块到另一个模块的传单地图

问题描述 投票：0回答：1

我正在构建一个 Shiny 应用程序，使用 Golem 作为框架。 在我的应用程序中，我制作了几个模块，所有模块都通过传单地图链接。 但是，我无法从创建地图的模块之外的其他模块更新地图。

我尝试考虑here的建议，将

map_id
和
parent_session
包含到模块调用中，但每当我尝试对地图进行任何更改（没有错误跟踪）时，应用程序仍然会崩溃).

这是我的代码的精简版本，位于单独的文件中：

app_server.R：

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @import leaflet
#' @noRd
app_server <- function( input, output, session ) {
  
  
  r <- reactiveValues(
    map=NULL,
    origin=list(lat=NULL, lng=NULL),
    destination=list(lat=NULL, lng=NULL)
  )
  
  mod_basemap_server("basemap_ui_1", r, session)
  mod_itinerary_server("itinerary_ui_1", r, map_id="basemap", parent_session=session)
}

app_ui.R：

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_ui <- function(request) {
  tagList( 
    bootstrapPage(      
      mod_basemap_ui("basemap_ui_1"),
      mod_itinerary_ui("itinerary_ui_1")
      )
    
  )
}

mod_basemap.R:

#' basemap UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_basemap_ui <- function(id){
  ns <- NS(id)
  tagList(
    # Map background
    leaflet::leafletOutput(ns("basemap"))    
  )
}
    
#' basemap Server Functions
#'
#' @noRd 
mod_basemap_server <- function(id, r, session){
  shiny::moduleServer( id, function(input, output, session){
    ns <- session$ns
    
    output$basemap <- leaflet::renderLeaflet({
      # generate base leaflet
      map = leaflet::leaflet(options = leaflet::leafletOptions(zoomControl = FALSE)) %>%
        leaflet::addTiles(leaflet::providers$OpenStreetMap) %>%
        leaflet::addProviderTiles(leaflet::providers$OpenStreetMap,
                                  group="Open Street Map") %>% 
        leaflet::addProviderTiles(leaflet::providers$OpenTopoMap,
                                  group="Open Topo Map") %>% 
        leaflet::addProviderTiles(leaflet::providers$Esri.WorldImagery,
                                  group="Esri World Imagery") %>% 
        leaflet::fitBounds(2.78, 44.85, 3.41, 44.71) %>%
        leaflet::addLayersControl(
          baseGroups = c("Open Street Map", "Open Topo Map", "Esri World Imagery")
        )
      map
    })
        
    # Clicks on the map
    observeEvent(input$basemap_click, {
      click = input$basemap_click
      # Check whether we're updating origin marker or destination marker
      if(r$orig_dest_switch=="orig"){
        r$origin$lat = click$lat
        r$origin$lng = click$lng
        # Add origin marker on the map (after removing previously added origin)
        leaflet::leafletProxy('basemap')%>%
          leaflet::clearGroup("origin") %>%
          leaflet::addMarkers(lng=r$origin$lng, lat=r$origin$lat,
                     group="origin")
      } else {
        r$destination$lat = click$lat
        r$destination$lng = click$lng
        # Add destination marker on the map (after removing previously added destination)
        leaflet::leafletProxy('basemap')%>%
          leaflet::clearGroup("destination") %>%
          leaflet::addMarkers(lng=r$destination$lng, lat=r$destination$lat,
                              group="destination")
      }
    })
    
  })
}

mod_行程.R:

#' itinerary UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_itinerary_ui <- function(id){
  ns <- NS(id)
  tagList(
    absolutePanel(id="vehicleDetails", bottom=10, left=15, h4('Itinerary'),
                  h6("First select an origin on the map, then select a destination before plotting"),
                  style='background-color:white; opacity:0.8;padding: 0 20px 20px 20px',
                  radioButtons(
                    inputId=ns('orig_dest_switch'),
                    h5("Change origin or destination"),
                    choices = c("Origin" = 'orig', "Destination" = 'dest'),
                    inline = TRUE),
                  actionButton(inputId=ns("confirm_itin"), label="Plot itinerary")
    )
  )
  
}

#' itinerary Server Functions
#'
#' @noRd 
mod_itinerary_server <- function(id, r, map_id, parent_session){
  moduleServer( id, function(input, output, session){
    ns <- session$ns
    
    # Change origin/destination switch
    observeEvent(input$orig_dest_switch, {
      r$orig_dest_switch = input$orig_dest_switch
    })
    
    # Click on confirm button
    observeEvent(input$confirm_itin, {
    # Delete previous itineraries
    leaflet::leafletProxy(mapId = map_id, session = parent_session) %>%
      leaflet::clearGroup('itin')
    # Show itinerary on map
    leaflet::leafletProxy(mapId = map_id, session = parent_session) %>%
      leaflet::addPolylines(lng=c(r$origin$lng, r$destination$lng),
                            lat=c(r$origin$lat, r$destination$lat),
                            group='itin')
        
    })
    
    
  })
}

shinyApp(app_ui, app_server)
r shiny r-leaflet golem
1个回答
1
投票

我不知道为什么它会崩溃，我没有这个问题。不过，主要问题是在 

app_server.R
中，当您调用行程模块时，您输入了 
map_id="basemap"
。

在

mod_basemap.R
中，地图确实被称为“底图”，但它被包裹在
ns()
中，这意味着它的实际id是“你在调用模块时给出的名称-”+“你给输入的id” 。因此，这里地图的实际 ID 是“basemap_ui_1-basemap”。

现在，指定整个 id 并不是一个好主意（如果稍后将“basemap_ui_1”替换为其他内容怎么办？），所以您想要的是在调用 

mod_basemap.R
时返回地图 id，以便您可以使用其他模块中的此 id。所以在
mod_basemap.R
中的服务器部分的末尾，你可以添加：

return(list(map_id = ns("basemap")))

这样你就有：

mod_basemap_server <- function(id, r, session){
  shiny::moduleServer( id, function(input, output, session){
    ns <- session$ns
    
    # ... Code you already have ...

    return(list(map_id = ns("basemap")))
    
  })
}

在 

app_server.R
中，您现在可以将模块 
mod_basemap
分配给一个对象（我称之为 
basemap
），然后在调用模块 
basemap$map_id
时使用 
mod_itinerary
：

basemap <- mod_basemap_server("basemap_ui_1", r, session)
mod_itinerary_server("itinerary_ui_1", r, map_id = basemap$map_id, parent_session = session)

我希望这是清楚的。您还可以查看这篇 RStudio 文章，了解在模块之间传递信息。

最后一件事，你在

mod_itinerary.R
中写错了，你在应该是
r$destination$lng
的地方写了
r$destination$lat
。

这样，单击地图上的两个点，然后单击“绘制行程”应该会在这两点之间显示一条线。如果您仍然遇到一些意外的崩溃，我想这来自您可能拥有的其他模块中的代码，因为该代码对我来说工作得很好。

最新问题
© www.soinside.com 2019 - 2024. All rights reserved.