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

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

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)

库（“闪亮”）
服务器我已经找到了解决方案。我可以使用
session$clientData$url\u 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))

库（“闪亮”）
服务器