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

Question

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

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

示例输入:NAME&SURNAME。

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)