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

Question

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

ui.R：

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

server.R

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

Answer 1

希望它会有所帮助。例如，以下代码可用于从data.frame（server.R）加载项目，并将其作为ui.R上用户的选项提供。

openat()