Fatal编程技术网
  • r/
  • shinydashboard下拉菜单中的被动对象

shinydashboard下拉菜单中的被动对象

r shiny

shinydashboard下拉菜单中的被动对象,r,shiny,shinydashboard,reactive,R,Shiny,Shinydashboard,Reactive,是否可以基于反应对象呈现仪表板标题下拉菜单或notificationitem？我的尝试没有成功 library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(uiOutput("drop")), dashboardSidebar(), dashboardBody() ) server <- function(input, output) { values<-reacti

是否可以基于反应对象呈现仪表板标题下拉菜单或notificationitem？我的尝试没有成功

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)

库（闪亮）
图书馆（shinydashboard）

ui是，这在使用
renderMenu
和
下拉菜单输出的
shinydashboard
文档中有说明：




库（闪亮）
图书馆（shinydashboard）

ui是，这在使用
renderMenu
和
下拉菜单输出的
shinydashboard
文档中有说明：




库（闪亮）
图书馆（shinydashboard）
用户界面

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)