将字符串从 server.R 传递到 ui.R？

【问题标题】：Passing a string from server.R to ui.R?将字符串从 server.R 传递到 ui.R？
【发布时间】：2017-02-09 15:16:06
【问题描述】：

所以我有闪亮的仪表板，我通过修改使标题可点击，但现在我想添加一个字符串，即 user_addition。如何将我从会话对象获取的字符串传递给 ui？

ui.R:

dbHeader$children[[2]]$children <-  tags$a(style='color: white;',
href = paste0("/?username=", textOutput("user_addition")) , "Website-name")

服务器.R

output$user_addition <- renderText({ parseQueryString(session$clientData$url_search)[['username']] })

【问题讨论】：

标签： shiny

【解决方案1】：

希望对您有所帮助。例如，下面的代码可用于从 data.frame (server.R) 加载项目，并将其作为选项提供给 ui.R 上的用户。

library(shiny)
 
ui <- fluidPage(
      uiOutput("myOptions"),
      textOutput("myChoosenText")
)
 
server <- function(input, output, session) {    
 
      letter <- c("A", "B", "C", "D", "E")
 
      output$myOptions <- renderUI({
                selectInput("variable1", "Choose Option:", as.list(letter)) 
      })
 
      output$myChoosenText <- renderText({
      myChoice <- input$variable1
      })
}
 
shinyApp(ui = ui, server = server)

【讨论】：