Question

我正在开发R闪亮的传单地图。在这个应用程序中，我希望只要更改setView()中的 lng 和 lat 值，就会更改地图的焦点。 lng 和 lat 值取决于我从下拉框中选择的国家/地区。以前我在ifelse()函数中使用 lng 和 lat 的静态值，该应用程序正常运行。但现在问题是当我想要使事情变得更通用时： lng 和 lat 将是所选数据子集的经度和纬度的平均值国家，应用程序不再显示地图（从我的角度来看，计算似乎正确）

以下是简化且可行的R脚本：

global.R：

library(devtools)
library(leaflet)
library(htmlwidgets)
library(shiny)
library(shinydashboard)
library(sp)
library(rworldmap)
library(RCurl)
library(ggmap)

df <- read.csv(url("https://docs.google.com/spreadsheets/d/1rrEJiuxr4nafTqUQBlPpUdGwvGeGtBJExlPJdday2uw/pub?output=csv"),
           header = T,
           stringsAsFactors = F)
df$Time <- as.Date(df$Time, "%d/%m/%Y")

ui.R

header <- dashboardHeader(
  title = 'Shiny Memery'
)
body <- dashboardBody(
  fluidRow(
    tabBox(
      tabPanel("My Map", leafletOutput("mymap",height = 550)),
      width = 700
    ))
)
dashboardPage(
  header,
  dashboardSidebar(
    sliderInput('Timeline Value','Time line',min = min(df$Time),
                max = max(df$Time), 
                value = c(min(df$Time), min(df$Time)+10)),
    selectInput("select_country", label = "Select Country", 
                choices = NULL, 
                selected = NULL)
  ),
  body
)

server.R

  shinyServer(function(input, output, session) {

  dfs <- reactive({
    tmp <- subset(df, df$Time <= input$`Timeline Value`[2] & df$Time >= input$`Timeline Value`[1])  
    tmp
  })

  part_choices <- reactive({
    as.list(c("All",  unique(as.character(dfs()$Country))))
  })

  observe({
    updateSelectInput(session, "select_country", choices=part_choices())
  })

  output$mymap <- renderLeaflet({
    lng <- ifelse(input$select_country == "All", mean(dfs()$lon),
                  mean(subset(dfs(), Country %in% input$select_country)$lon)
                         )
    lat <- ifelse(input$select_country == "All", mean(dfs()$lat),
                  mean(subset(dfs(), Country %in% input$select_country)$lat)
                         )

    m <- leaflet(dfs()) %>%
      addTiles(
      ) %>%  
      setView(lng, lat, zoom = 5) %>%
      addMarkers(~lon, ~lat, 
                 clusterOptions = markerClusterOptions())
  })
})

您将在server.R部分中看到我使用ifelse()来更改 lng 和 lat 值，以后可以在{{1}中使用功能。在我将else参数更改为计算之后，应用程序不再起作用了。

真的很感激，如果有人能告诉我我哪里错了。

提前致谢。

Answer 1

在ui.R中，尝试将您的国家/地区输入更改为

selectInput("select_country", label = "Select Country", 
            choices = "All", 
            selected = "All")

我的猜测是ifelse s没有返回一个数字，因为input$select_country在NULL被初始化，这（由于我不清楚的原因）会导致renderLeaflet updateSelectInput 1}}和An Error Was Encountered The URI you submitted has disallowed characters.无法运行，阻止更新国家/地区选择器。

根据R闪亮应用程序中的选择框动态更改setView

1 个答案: