r - 菜单项单击未在 R Shiny Dashboard 中触发
问题描述
我正在构建 R Shiny Dashboard。我已经构建了代码 UI 部分。现在我想添加应该动态显示在右侧的菜单项的内容。我已经为选项卡项应用了观察者事件。但它无法正常工作,如下所示:
代码:
library(shiny)
library(shinythemes)
#UI client..............................
ui <- fluidPage(
tags$style(HTML("
h4 {
color: white;
padding-top: 5px;
font-weight: bold;
}
.content-wrapper{
overflow:auto;
width:150%;
}
"
)
),
dashboardPage(
dashboardHeader(title="Title",
tags$li(h4("Welcome User!"),
class = "dropdown",
dropdownMenu(type = "messages",
messageItem(
from = "Logout",
message = "Session Ends"
))
)),
## Sidebar content
dashboardSidebar(
sidebarMenu(
menuItem("OverView", tabName = "Sitecontent", icon = icon("th")),
menuItem("Candidate Information", tabName = "CandidateInformation", icon = icon("th")),
menuItem("Assesment", tabName = "Assesment", icon = icon("th"),
menuItem('Affect',
tabName = 'Affect',
icon = icon('th'))
)
)
),
dashboardBody(
tabItems(
# OverView tab content
tabItem(tabName = "OverView",
h2("OverView ")
),
# Assesment tab content
tabItem(tabName = "Assesment",
h2("Assesment ")
),
# Predictive Result tab content
tabItem(tabName = "PredictAny",
h2("PredictAny")
),
# PreventiveResults tab content
tabItem(tabName = "PreventiveResults",
h2("PreventiveResults")
),
tabItem(tabName = "Affect",
h2("Assesment on Affect")
)
)
)
)
)
server <- function(input, output,session) {
observeEvent(input$Affect, { #Not triggering
sendSweetAlert(
session = session,
title = "Done!",
text = "Affect Triggered.",
type = "success"
)
})
}
shinyApp(ui, server)
我打不中observeEvent(input$Affect,
。不知道我在这里做错了什么..请帮助我。
解决方案
试试这个:
library(shiny)
library(shinythemes)
library(shinydashboard)
#UI client..............................
ui <- fluidPage(
tags$style(HTML("
h4 {
color: white;
padding-top: 5px;
font-weight: bold;
}
.content-wrapper{
overflow:auto;
width:150%;
}
"
)
),
dashboardPage(
dashboardHeader(title="OPTUM",
tags$li(h4("Welcome User!"),
class = "dropdown",
dropdownMenu(type = "messages",
messageItem(
from = "Logout",
message = "Session Ends"
))
)),
## Sidebar content
dashboardSidebar(
sidebarMenu(id = "tabs",
menuItem("OverView", tabName = "Sitecontent", icon = icon("th")),
menuItem("Candidate Information", tabName = "CandidateInformation", icon = icon("th")),
menuItem("Assesment", tabName = "Assesment", icon = icon("th"),
menuItem('Affect',
tabName = 'AffectTab',
icon = icon('th'))
)
)
),
dashboardBody(
tabItems(
# OverView tab content
tabItem(tabName = "OverView",
h2("OverView ")
),
# Assesment tab content
tabItem(tabName = "Assesment",
h2("Assesment ")
),
# Predictive Result tab content
tabItem(tabName = "PredictAny",
h2("PredictAny")
),
# PreventiveResults tab content
tabItem(tabName = "PreventiveResults",
h2("PreventiveResults")
),
tabItem(tabName = "AffectTab",
h2("Assesment on Affect")
)
)
)
)
)
server <- function(input, output,session) {
observeEvent(input$tabs, { #Not triggering
print(input$tabs)
if(input$tabs=="AffectTab"){
sendSweetAlert(
session = session,
title = "Done!",
text = "Affect Triggered.",
type = "success"
)
}
})
}
shinyApp(ui, server)
推荐阅读
- php - 用于验证用户的自动 Symfony 协议不起作用
- docker - 从卷导出和加载redis数据库
- sql - 如何在 While 语句中使用 Join?
- vue.js - 将字体真棒导入vue项目
- r - R Shiny table如何在可扩展行中正确格式化html代码
- javascript - 尽管负前瞻,正则表达式仍匹配字符串
- angular - 为什么hintEnd没有用材质正式渲染?
- oracle - 如何使用 XMLType 在 oracle db 中存储和检索 XML 请求
- c# - 在 C# 中使用 JsonConvert 反序列化具有泛型类型参数的类
- mongoose - 嵌套填充匹配函数使用父值的父值而不是父值