2 сайдбарпанеля в Навбарпаже в одной вкладке

Question

Это Navbarpage в Shiny. Могу ли я добавить 2 боковых панели с пробелом в середине, как показано на рисунке ниже. Можем ли мы добавить html теги для создания этого интервала?

Ниже приведен код для этого (в основном мне нужен промежуток между тикерами)

ui.R

# Define UI for application that draws a histogram

navbarPage("Trading",
           selected = "Data",
           tags$script(src = "app.js"),
           tags$style("body {background-color: skyblue;}"),
           tabPanel("Data",
                    sidebarLayout(
                      sidebarPanel(selectInput('ticker','Ticker',choices = c("",levels(factor(Ticker$Ticker))),selected = ""),
                                   # uiOutput("measures"),
                                   # uiOutput("interval"),
                                   # uiOutput("click_button"),
                                   selectInput('ticker1','Ticker',choices = c("",levels(factor(Ticker$Ticker))),selected = ""),
                      width = 2),
                      mainPanel(dataTableOutput("display"))
                    )))

Answer 1

navbarPage("Trading",
           selected = "Data",
           tags$script(src = "app.js"),
           tags$style("body {background-color: skyblue;}
                       #pb_100 {padding-bottom: 100px;}"),
           tabPanel("Data",
                    sidebarLayout(
                      sidebarPanel(tags$div(id="pb_100", style='margin-bottom: 100px',
     selectInput('ticker','Ticker',choices = c("",levels(factor(Ticker$Ticker))),selected = "")),
                                   # uiOutput("measures"),
                                   # uiOutput("interval"),
                                   # uiOutput("click_button"),
                                   selectInput('ticker1','Ticker',choices = c("",levels(factor(Ticker$Ticker))),selected = ""),
                      width = 2),
                      mainPanel(dataTableOutput("display"))
                    )))