将两个输入选择器包装在div中:div(style=”display:flex”)

library(shiny)
ui <- fluidPage(
navbarPage("Title", id="nav",
tabPanel("Tab",
div(style="display:flex",
selectInput("select_1", "1st Thing",
choices=1:10, selected = 1, multiple = FALSE,
width=90),
selectInput("select_2", "2nd Thing",
choices=1:10, selected = 2, multiple = FALSE,
width=90)
),
div(style="display:flex",
textInput(inputId ="simOption",
label = "Historical Data",value=TRUE),
textInput(inputId ="simOption2",
label = "Historical Data 2",value=TRUE)
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)