shinydashboard下拉菜单中的反应性对象
提问于 2017-02-24 10:36:16
是否可以根据反应性对象呈现仪表板标题下拉菜单或通知项？我的尝试没有奏效。
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(uiOutput("drop")),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) {
values<-reactiveValues()
values[["numvotes"]]<-1
output$drop<-renderUI({
dropdownMenu(type = "notifications", badgeStatus = "warning",
notificationItem(icon = icon("ok", lib = "glyphicon"), status = "danger",
paste(values[["numvotes"]],"vote(s)")
) )
})
}
shinyApp(ui, server)
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-02-24 10:48:46
是的，这在shinydashboard的renderMenu和dropdownMenuOutput文档中解释过。
https://rstudio.github.io/shinydashboard/structure.html#dynamic-content
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(dropdownMenuOutput("notif")),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) {
values<-reactiveValues()
values[["numvotes"]] <- 1
output$notif <- renderMenu({
dropdownMenu(type = "notifications", badgeStatus = "warning",
notificationItem(icon = icon("ok", lib = "glyphicon"), status = "danger",
paste(values[["numvotes"]], "vote(s)")
) )
})
}
shinyApp(ui, server)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42445956
复制相关文章
腾讯云开发者
