我正在尝试开发一个仪表板,该仪表板需要有多个选项卡。我正在使用gentelellaShiny R包中的gentelellaPage()函数。添加选项卡时,不再需要gentelella函数中的导航栏,而我想将其删除。有没有办法删除它或利用它来显示选项卡?有没有办法在边栏中显示选项卡?
library(shiny)
library(plotly)
shinyApp(
ui = fluidPage(gentelellaPage(shiny::tabsetPanel(
shiny::tabPanel("Map", fluid = TRUE, tabName = "Home",
sidebarLayout(sidebarPanel(selectInput("Country", "Select Country", choices = "", selected = "")),
mainPanel(
htmlOutput("Attacks")
)
)
),
shiny::tabPanel("plot", fluid = TRUE,tabName = "Contact",
sidebarLayout(
sidebarPanel(sliderInput("year", "Year:", min = 1968, max = 2009, value = 2009, sep='')),
mainPanel(fluidRow(
column(7, plotlyOutput("")),
column(5, plotlyOutput(""))
))
))
))),
server = function(input, output) {}
)