1

我在一个闪亮的模块上编写了一个循环，该模块在传单地图上显示一个标记。但是，在我的所有地图上都显示了相同的标记（我想在不同的地图上显示每对坐标data.frame）。我不知道为什么，但数据子集似乎失败了。谁能解释为什么会发生这种情况以及如何解决这个问题？

library(shiny)
library(leaflet)

Data <- data.frame(longitude = c(11, 12, 14), latitude = c(50, 49, 51))

mod_map_ui <- function(.id) {
  ns <- shiny::NS(.id)
  leafletOutput(ns("map"))
}

mod_map <- function(input, output, session, .Data) {
  output$map <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>%
      addMarkers(data = .Data)
  })
}


ui <- fluidPage(
  uiOutput("list")
)

server <- function(input, output, session) {

  observe({
    tag.list <- tagList()
      for (i in seq_len(NROW(Data))) {
        tag.list <- tagAppendChildren(
          tag.list,
          mod_map_ui(paste0("map_mod", i)), br()
        )
        callModule(mod_map, paste0("map_mod", i), .Data = Data[i, ])
    }

    output$list <- renderUI({
      tag.list
    })
  })
}

shinyApp(ui, server)
4

1 回答 1

0

不是 100% 确定为什么，但是如果您使用 callModule 命令并将其从观察部分中取出并使用 lapply 而不是 for 循环，它似乎可以工作。

library(shiny)
library(leaflet)

Data <- data.frame(longitude = c(11, 12, 14), latitude = c(50, 49, 51))

mod_map_ui <- function(.id) {
  ns <- shiny::NS(.id)
  leafletOutput(ns("map"))
}

mod_map <- function(input, output, session, .Data) {
  output$map <- renderLeaflet({
    leaflet() %>% 
      addTiles() %>%
      addMarkers(data = .Data)
  })
}


ui <- fluidPage(
  uiOutput("list")
)

server <- function(input, output, session) {

  observe({
    tag.list <- tagList()
    for (i in seq_len(NROW(Data))) {
      tag.list <- tagAppendChildren(
        tag.list,
        mod_map_ui(paste0("map_mod", i)), br()
      )
    }

    output$list <- renderUI({
      tag.list
    })
  })

#####
  lapply(seq_len(NROW(Data)), function(i){
    callModule(mod_map, paste0("map_mod", i), .Data = Data[i, ])
  })
#####

}

shinyApp(ui, server)
于 2019-12-15T06:07:16.510 回答