Я возвращаюсь к R после двухлетнего перерыва, и это не легко.
Я создал интерфейс благодаря пакету shinydashboard, включающему два разных меню в боковой панели: одно короткое и один продлен. Расширенное меню должно отображаться при нажатии на вкладку «Страна», но оно открывается очень быстро, а затем возвращается в короткое меню, и я не понимаю, почему. Меню отображаются со стороны сервера. Большое спасибо за любую помощь.
Это код пользовательского интерфейса:
library(dplyr)
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(
title = "2019 CENSUS",
titleWidth = 500), # f. de dashboardHeader
dashboardSidebar(#Sidebar contents
sidebarMenu(id = "Menu1",
sidebarMenuOutput("Menu"))
), # closes dashboardSidebar
#### BODY CONTENTS #####
dashboardBody(
# Title
tags$head(tags$style(HTML('
.main-header .logo {
font-family: "Georgia", Times, "Times New Roman", serif;
font-weight: bold;
font-size: 16px;
}
'))), # closes tags$head(tags$style(HTML('
tabItems(
# Geo levels tab contents
tabItem(tabName = "levels",
fluidRow(
box(width = 12, background = "light-blue",title = "Welcome", "Please choose a geo level from the three available then click on the 'Home datas' tab") # closes box
) # closes fluidRow
), # closes tabItem
# Country level tab contents
tabItem(tabName = "country",
fluidRow(
box(title = "Country level : please, click on the 'Home datas' tab to view datas", width = 12, background = "olive") # closes box
) # closes fluidRow
), # closes tabItem
# Counties tab contents
tabItem(tabName = "counties",
fluidRow(
box(title = "Counties level", width = 3, solidHeader = TRUE, status = "primary",
checkboxGroupInput("dynamic_provinces", label = "", c("North","South","Islands"))) # closes box
), # closes fluidRow
fluidRow(
box(title = "North county", width = 9, background = "light-blue"), # closes box
br()
), # closes fluidRow
fluidRow(
box(title = "South county", width = 9, background = "orange"), # closes box
br()
), # closes fluidRow
fluidRow(
box(title = "Islands county", width = 9, background = "olive"), # closes box
) # closes fluidRow
) # closes tabItem
) # closes tabItems
) # closes dashboardBody
) # closes dashboardPage
И код сервера:
shinyServer(function(input, output, session) {
# Initialize reactive values
rv10 <- reactiveValues(selection = numeric())
rv10$selection <- 0 # extended/short menu reactive value : extended menu if = 1/ short menu if = 0
#### FOCUS ON THE WELCOME TAB ####
updateTabItems(session, "Menu1", "welcome")
############## SETTING MENU DEPENDING ON THE VALUE OF rv10$selection ################
output$Menu <- renderMenu({
if (rv10$selection == 1) { # extended/short menu reactive value : extended menu if = 1/ short menu if = 0
sidebarMenu(# Short menu
menuItem(strong("Geo levels"), tabName = "levels", icon = icon("arrow-down"),selected = TRUE),
menuSubItem("Country", tabName = "country", icon = icon("globe-americas")),
menuSubItem("Counties", tabName = "counties", icon = icon("parking")),
menuItem(strong("Home datas"), tabName = "home_datas", icon = icon("home"),
menuSubItem("Home data 1", tabName = "home_1", icon = icon("home")),
menuSubItem("Home data 2", tabName = "home_2", icon = icon("home"))),
menuItem(strong("Quit"), tabName = "quit", icon = icon("remove"))
) # closes sidebarMenu
} # closes if
else {
sidebarMenu(# Extended menu
menuItem(strong("Geo levels"), tabName = "levels", icon = icon("arrow-down"),selected = TRUE),
menuSubItem("Country", tabName = "country", icon = icon("globe-americas")),
menuSubItem("Counties", tabName = "counties", icon = icon("parking")),
menuItem(strong("Quit"), tabName = "quit", icon = icon("remove"))
) # closes sidebarMenu
} # closes else
}) # closes output$Menu <- renderMenu({
#### OBSERVEEVENT #####
observeEvent(input$Menu1, {
# If click on the "Geo levels" tab -> short menu
if (input$Menu1 == "levels"){
rv10$selection <- 0 # rv10$selection = 0 -> displaying the short menu
print(paste("rv10$selection value =", rv10$selection)) # displaying the value of rv10$selection
}
# If click on the "Country" tab -> extended menu
if(input$Menu1 == "country"){
rv10$selection <- 1 # rv10$selection = 1 -> displaying the extended menu
print(paste("rv10$selection value =", rv10$selection))
}
# If click on the "counties" tab -> short menu
if(input$Menu1 == "counties"){
rv10$selection <- 0 # rv10$selection = 0 -> displaying the short menu
print(paste("rv10$selection value =", rv10$selection))
}
#### CLOSING THE APP ####
if (input$Menu1 == "quit"){
print("Quit")
stopApp()}
}) # closes ObserveEvent(input$Menu1
}) # closes shinyServer(function(input, output, session) {
Большое спасибо за вашу помощь .