闪亮的应用程序以不同的设置开始

Question

假设我有一个闪亮的应用程序：

library("shiny")

server <- function(input, output) {
  output$plot <- renderPlot({
    par(mar=c(0,0,0,0))
    plot(0:1,0:1, type = "n",xaxs="i",yaxs="i")
    polygon(c(0,1,1,0),c(0,0,1,1),col=input$col, border=NA)
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("col","Color",c("red","blue"),"red")
    ),
    mainPanel(plotOutput("plot"))
  )
)

shinyApp(ui = ui, server = server)

此应用程序仅根据输入绘制红色或蓝色正方形。 现在，我想在我的网站上使用此应用程序，在这里我想有两个链接：“红色应用程序”链接，它将打开默认选项设置为“红色”的应用程序，以及“蓝色应用程序”链接，这将打开默认设置为“蓝色”的应用程序。 除此之外，两种情况下的应用程序都应该相同。

有没有简单的方法可以做到这一点？

Answer 1

我已经找到了解决方案。 我可以使用session$clientData$url_search提取我放在url之后的内容。 因此，这个程序：

library("shiny")

server <- function(input, output, session) {
  output$plot <- renderPlot({
    par(mar=c(0,0,0,0))
    plot(0:1,0:1, type = "n",xaxs="i",yaxs="i")
    polygon(c(0,1,1,0),c(0,0,1,1),col=input$col, border=NA)
  })

  output$colSelect <- renderUI({
    default <- parseQueryString(session$clientData$url_search)$col
    if (is.null(default)) default <- "white"
    selectInput("col","Color",colors(),default)
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
     htmlOutput("colSelect") 
    ),
    mainPanel(plotOutput("plot"))
  )
)

shinyApp(ui = ui, server = server, options = list(launch.browser  =TRUE))

将以白框开始，但是如果我通过例如http://127.0.0.1:7889/?col=blue打开它，它将在一个蓝色应用程序中打开。