Как переместить панели вкладок сверху панели управления на главную панель - PullRequest
Новая
       6

Как переместить панели вкладок сверху панели управления на главную панель

1 голос
/ 05 февраля 2020

У меня очень длинный блестящий синтаксис, в котором панели вкладок расположены прямо над панелью управления. Мне было интересно узнать, как я могу переместить вкладки на главную панель (как показано на рисунке ниже). Я знаю, что одним из решений может быть определение панелей вкладок внутри главной панели, но по какой-то причине я бы хотел этого избежать. Спасибо. Nader

Актуальная проблема

enter image description here

пример кода (проблема) 

library(shiny)

ui <- fluidPage(

  titlePanel("Tabsets"),
  tabsetPanel(
    tabPanel("Plot"), 
    tabPanel("Summary"), 
    tabPanel("Table")),

  sidebarLayout(

    sidebarPanel(
      sliderInput('sampleSize', 'Sample Size', 
                  min=1, max=nrow(dataset), value=min(1000, nrow(dataset)), 
                  step=500, round=0)
    ),

    mainPanel(

      )
    )
  )

server <- function(input, output) {
}


shinyApp(ui, server)

пример кода (возможное решение) 

library(shiny)

ui <- fluidPage(

  titlePanel("Tabsets"),



  sidebarLayout(

    sidebarPanel(
      sliderInput('sampleSize', 'Sample Size', 
                  min=1, max=nrow(dataset), value=min(1000, nrow(dataset)), 
                  step=500, round=0)
    ),

    mainPanel(

      tabsetPanel(
        tabPanel("Plot"), 
        tabPanel("Summary"), 
        tabPanel("Table"))

      )
    )
  )




server <- function(input, output) {
}


shinyApp(ui, server)
...