[英]shiny R app menuitem inside conditional panel deformed
I have this shiny app with 4 menuItem. 我有一个带有4 menuItem的闪亮应用程序。 One is named "Login" and tabA, tabB, and tabC are under a conditionalPanel and only appear when a login is successfully done.
一个名为“登录”,并且tabA,tabB和tabC在conditionalPanel下,并且仅在成功完成登录后出现。
Can someone give a hint on why the UI has changed? 有人可以提示用户界面更改的原因吗? Because all 4 tabs should look exactly as the first one.
因为所有4个标签应与第一个标签完全相同。
ui.R code: ui.R代码:
menuItem('Login', tabName = 'Login', icon = icon('fa fa-address-book')),
conditionalPanel(" 'TRUE' === 'TRUE' ",
menuItem("tabA", tabName = "tabA", icon = icon("fa fa-book")),
menuItem("tabB", tabName = "tabB", icon = icon("fa fa-line-chart")),
menuItem("tabC", icon = icon("fa fa-database")))
Thank you in advance 先感谢您
One option should be to wrap with sidebarMenu
一种选择应该是用
sidebarMenu
包装
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(
title = "Shiny"
),
dashboardSidebar(
sidebarMenu(id="menu",
menuItem('Login', tabName = 'Login', icon = icon('user-o')),
conditionalPanel(" 'TRUE' === 'TRUE' ",
sidebarMenu(menuItem("tabA", tabName = "tabA", icon = icon("quora")),
menuItem("tabB", tabName = "tabB", icon = icon("superpowers")),
menuItem("tabC", tabName = "tabC", icon = icon("podcast"))))
)
),
dashboardBody(
tabItems(
tabItem("Login",h1("login")),
tabItem("tabA",h1("a")),
tabItem("tabB",h1("b")),
tabItem("tabC", h1("c"))
)
)
)
server <- function(input, output) {
observe(print(input$menu))
}
shinyApp(ui,server)
giving output 提供输出
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.