Unfortunately, tabsetPanel() doesn't take a name argument. I guess a workaround is to insert a heading tag just before the tabsetPanel(). Here's an example with a sidebar and an overall app title:
library(shiny)
ui <- fluidPage(
titlePanel("This is the app title"),
sidebarLayout(
sidebarPanel(
p("This is the sidebar")
),
mainPanel(
h3("Tabset Panel Name"),
tabsetPanel(
tabPanel("Plot", plotOutput("plot")),
tabPanel("Summary", verbatimTextOutput("summary")),
tabPanel("Table", tableOutput("table"))
)
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)