当应用程序根据数据包含“&”字符的 URL 加载时，预填充 Shiny 输入

Question

当应用程序根据 URL 参数加载时，我需要预填充 Shiny 输入。以下链接中的代码正常工作： https: //github.com/daattali/advanced-shiny/tree/master/url-inputs。

但是，我的数据中每个数据都有“&”字符。此代码还在 URL 中的每个输入之间使用“&”字符。如何处理这个冲突？

输入示例：姓名和姓氏。

Answer 1

作为一种解决方法，您可以考虑parseQueryString()根据您的需要覆盖该函数。例如，将 url 中的值的分隔符从 更改&为&&。

parseQueryString <- function (str, nested = FALSE, seperator = "&&") 
{
  if (is.null(str) || nchar(str) == 0) 
    return(list())
  if (substr(str, 1, 1) == "?") 
    str <- substr(str, 2, nchar(str))
  pairs <- strsplit(str, seperator, fixed = TRUE)[[1]]
  pairs <- pairs[pairs != ""]
  pairs <- strsplit(pairs, "=", fixed = TRUE)
  keys <- vapply(pairs, function(x) x[1], FUN.VALUE = character(1))
  values <- vapply(pairs, function(x) x[2], FUN.VALUE = character(1))
  values[is.na(values)] <- ""
  keys <- gsub("+", " ", keys, fixed = TRUE)
  values <- gsub("+", " ", values, fixed = TRUE)
  keys <- URLdecode(keys)
  values <- URLdecode(values)
  res <- stats::setNames(as.list(values), keys)
  if (!nested) 
    return(res)
  for (i in grep("\\[.+\\]", keys)) {
    k <- strsplit(keys[i], "[][]")[[1L]]
    res <- assignNestedList(res, k[k != ""], values[i])
    res[[keys[i]]] <- NULL
  }
  res
}

这会产生：

代码：

library(shiny)

ui <- fluidPage(
  textInput("name", "Name"),
  numericInput("age", "Age", 25)
)

server <- function(input, output, session) {
  observe({
      query <- parseQueryString(session$clientData$url_search)
    print(query)
    if (!is.null(query[['name']])) {
      updateTextInput(session, "name", value = query[['name']])
    }
    if (!is.null(query[['age']])) {
      updateNumericInput(session, "age", value = query[['age']])
    }
  })
}

shinyApp(ui, server)