Usando script de UI semelhante em R brilhante em vários subMenuItems
o script brilhante R fornecido cria um menu suspenso na barra lateral com itens principais e submenus. Quando você clica no primeiro subitem 1, obtém duas entradas selecionadas no painel body. Quero uma funcionalidade em que apenas declaro essas entradas uma vez e as uso várias vezes nos outros subitens, assim como a função reativa. Quero fazer isso para tornar o script rápido e eficiente. Tenho menos conhecimento da funcionalidade reativa, por favor, ajude e obrigado.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
id = "tabs",
menuItem("Charts", icon = icon("bar-chart-o"),
menuSubItem("Sub-item 1", tabName = "subitem1"),
menuSubItem("Sub-item 2", tabName = "subitem2"),
menuSubItem("Sub-item 3", tabName = "subitem3"),
menuSubItem("Sub-item 4", tabName = "subitem4")
))),
dashboardBody(
tabItems(
tabItem("subitem1", column(2,offset = 0, style='padding:1px;',
selectInput("select1","select1",c("A1","A2","A3"), selected = "A1")),
column(2,offset = 0, style='padding:1px;',
selectInput("select2","select2",c("A3","A4","A5"), selected = "A3"))),
tabItem("subitem2", "Widgets tab content"),
tabItem("subitem3", "Sub-item 1 tab content"),
tabItem("subitem4", "Sub-item 2 tab content"))))
server <- function(input, output, session) {
}
shinyApp(ui, server)