[英]R Shinydashboard: how to collapse menuItem() with selectInput() (filters) in it?
[英]How to specify menuItem in ShinyDashboard?
我正在使用shinydashboard
包版本 0.7.1 创建 Shiny Web 应用程序。
所以我遇到了一个问题,当我指定menuItem
时没有任何反应。
这是示例:
library(shinydashboard)
library(sqldf)
library(DBI)
library(foreign)
library(RPostgres)
library(stringr)
library(readxl)
library(ggplot2)
library(ggpubr)
library(formattable)
library(reshape2)
header <- dashboardHeader(title = "S-T")
sidebar <- dashboardSidebar(
textInput("banc_lics", "No of license", value=1),
dateInput("date_an", "Input date", value = "2019-02-01" ),
sidebarMenu(
sidebarMenu(
menuItem("Credit Risk", tabName = "Credit Risk", icon("abacus")),
menuItem("Equity Risk", tabName = "Equity Risk", icon("wave-tiangle")))
),
submitButton("Submit", icon("calculator"))
)
page <- dashboardBody(
tabItems(
tabItem(
tabName = "Credit Risk", h1("Credit Risk"),
fluidRow(
box(width=12, title = "Таблица", tableOutput("data_table"))
),
fluidRow(
box(width=12, title = "График", plotOutput("data_plot"))
)
),
tabItem(tabName = "Equity Risk", h2("Equity Risk"))
)
)
ui <- dashboardPage(header, sidebar, page, skin="yellow")
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
我在data_plot
中没有看到预先指定的data_table
和data_plot
。
我可以处理这个问题吗?
谢谢。
需要改变的东西很少......
sidebarMenu()
是不必要的icon("x")
为icon = icon("x")
完整代码:
library(shinydashboard)
header <- dashboardHeader(title = "S-T")
sidebar <- dashboardSidebar(
textInput("banc_lics", "No of license", value=1),
dateInput("date_an", "Input date", value = "2019-02-01" ),
sidebarMenu(
menuItem("Credit Risk", tabName = "CR", icon = icon("abacus")),
menuItem("Equity Risk", tabName = "ER", icon = icon("wave-tiangle"))
),
submitButton("Submit", icon("calculator"))
)
body <- dashboardBody(
tabItems(
tabItem(tabName = "CR",
h1("Credit Risk"),
fluidRow(
box(width=12, title = "Таблица", tableOutput("data_table"))
),
fluidRow(
box(width=12, title = "График", plotOutput("data_plot"))
)
),
tabItem(tabName = "ER",
h2("Equity Risk")
)
)
)
ui <- dashboardPage(header, sidebar, body, skin="yellow")
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.