是否可以在R的navlistPanel中包含selectInput元素?

如果你可以使用 shinydashboard ,相当简单。

library(shiny)
library(shinydashboard)

rm(list=ls)

######/ UI Side/######

header <- dashboardHeader(title = "Test")
sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("First Tab",tabName = "FTab", icon = icon("globe")),
    menuItem("Second Tab",tabName = "STab", icon = icon("star"))
  ),
  selectInput("navSel", "Selection:", c("b","c"))
)
body <- dashboardBody()

ui <- dashboardPage(header, sidebar, body)


######/ SERVER Side/######

server <- function(input, output, session) {

}

shinyApp(ui, server)

library(shiny)

shinyApp(
  ui <- fluidPage(
    titlePanel("Application Title"),

    navlistPanel("Header", id = "navOut",
                 tabPanel("First", "First"),
                 tabPanel(selectInput("navSel", "Selection:", c("b", "c")), textOutput("txt"))
    )
  ),
  server <- shinyServer(function(input, output){
    output$txt <- renderText(input$navSel)
  })  
)