有没有办法删除gentelellaPage函数中的导航栏或将选项卡移至侧栏或导航栏?

时间:2019-06-13 11:01:31

标签: r shiny gentelella

我正在尝试开发一个仪表板,该仪表板需要有多个选项卡。我正在使用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) {}
)

0 个答案:

没有答案