我有这个代码，用于"；global"；查询，用于传递多个参数(国家/地区)，以通过update SelectInput显示多个绘图

我的项目http://webcovid19.online

server <- function(input, output, session) {
session$clientData$url_search
  observe({
    query <- parseQueryString(session$clientData$url_search)
    if (!is.null(query[['global']])) {
       updateSelectInput(session, "country_input", selected = query[['global']])
      updateNavbarPage(session, "mainNavbarPage", selected="COVID 19 Global Stats")

    }

  })

用户界面

   selectInput("country_input", "Countries:",
                              unique(countries$country),
                              selected = start_countries,
                              multiple = TRUE),

国家/地区的DF

head (countries)
  country  confirmed
1      US 1682183074
2   India 1063726855
3  Brazil  875580392

有什么想法吗？ 当我进行调试时，我可以看到这两个参数，但如何传递给我的应用程序？ 看起来我必须以某种方式进行分析。

query[['global']]
[1] "Slovakia,Czechia" 

str(query[["global"]])
 chr "Slovakia,Czechia"

推荐答案

闪亮应用：如何通过url传递多个令牌/参数

通过url传递给闪亮应用的令牌的标准分隔符是&符号。

应用代码示例：

server <- function(input, output, session) {
  observe({
    query <- parseQueryString(session$clientData$url_search)
    if (!is.null(query[['paramA']])) {
        updateTextInput(session, "InputLabel_A", value = query[['paramA']])
    }
    if (!is.null(query[['paramB']])) {
        updateTextInput(session, "InputLabel_A", value = query[['paramB']])
    }
  })
  # ... R code that makes your app produce output ..
}

对应URL示例： http://localhost.com/?paramA=hello&?paramB=world

引用：parseQueryString Docs

尽管您的问题似乎是如何从单个传递的参数解析字符串令牌，但不是吗？我还是决定包含这个答案，因为这是谷歌关于如何通过url将多个参数传递给闪亮应用程序的第一个结果，我相信其他人会发现有用的。