![](/img/trans.png)
[英]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.