Question

在网络浏览器中，您可以将参数传递到网站，例如

www.mysite.com/?parameter=1

我有一个闪亮的应用程序，我想在计算中使用传入网站的参数作为输入。那么可以像www.mysite.com/?parameter=1这样做，然后使用input！参数吗？

您能提供任何示例代码或链接吗？

谢谢

Answer 1

当应用根据网址初始化时，您必须自己更新输入。您可以使用session$clientData$url_search变量来获取查询参数。这是一个例子，您可以轻松地将其扩展到您的需求

library(shiny)

shinyApp(
  ui = fluidPage(
    textInput("text", "Text", "")
  ),
  server = function(input, output, session) {
    observe({
      query <- parseQueryString(session$clientData$url_search)
      if (!is.null(query[['text']])) {
        updateTextInput(session, "text", value = query[['text']])
      }
    })
  }
)

Answer 2

建立daattali，这需要任意数量的输入，并为几种不同类型的输入分配值：

ui.R：

server.R：

library(shiny)

shinyUI(fluidPage(
textInput("symbol", "Symbol Entry", ""),

dateInput("date_start", h4("Start Date"), value = "2005-01-01" ,startview = "year"),

selectInput("period_select", label = h4("Frequency of Updates"),
            c("Monthly" = 1,
              "Quarterly" = 2,
              "Weekly" = 3,
              "Daily" = 4)),

sliderInput("smaLen", label = "SMA Len",min = 1, max = 200, value = 115),br(),

checkboxInput("usema", "Use MA", FALSE)

))

要测试的示例网址：127.0.0.1:5767/?symbol=BBB,AAA,CCC,DDD&date_start=2005-01-02&period_select=2&smaLen=153&usema=1

Answer 3

Shiny App：如何通过 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将参数传递给闪亮的应用程序

3 个答案: