stackoverflow.com/questions/48394545/...
й R R-скрипт создает выпадающее меню на боковой панели с пунктами основного и подменю. Когда вы нажимаете на первый подпункт 1, вы получаете два selectInputs в dashboardBody. Мне нужна функциональность, в которой я просто объявляю эти входные данные один раз и использую их несколько раз в других подпунктах, точно так же, как это делает реактивная функция. Я хочу сделать это, чтобы сделать скрипт быстрым и эффективным. У меня меньше знаний о реактивной функциональности, пожалуйста, помогите и спасибо.
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)