R Shiny: bs4Da sh развернуть меню без выбора вкладки - PullRequest
Новая
       22

R Shiny: bs4Da sh развернуть меню без выбора вкладки

0 голосов
/ 30 марта 2020

Используя пакет bs4Da sh, мне нужно щелкнуть bs4SidebarMenuItem без выбора первого bs4SidebarMenuSubItem - просто разверните меню.

В настоящее время, чтобы перейти ко второму bs4SidebarMenuSubItem, вам необходимо сначала просмотреть первый в списке. Иногда загрузка может занять некоторое время - см. Пример ниже.

Есть ли способ просмотреть доступные bs4SidebarMenuSubItem, не переходя к ним на самом деле? 

library(shiny)
library(bs4Dash)

shiny::shinyApp(
    ui = bs4DashPage(
        title = "Basic Dashboard",
        navbar = bs4DashNavbar(),
        sidebar = bs4DashSidebar(
            inputId = 'side_bar_id',
            bs4SidebarMenu(
                id = "test",
                bs4SidebarMenuItem(
                    text = "Tab 1",
                    startExpanded = T,
                    bs4SidebarMenuSubItem(tabName = "subtab1a",
                        text = "Tab 1")
                ),
                bs4SidebarMenuItem(
                    text = "Tab 2",
                    bs4SidebarMenuSubItem(tabName = "subtab2a",
                        text = "Long calculations"),
                    bs4SidebarMenuSubItem(tabName = "subtab2b",
                        text = "Target tab")
                )
            )
        ),
        body = bs4DashBody()
    ),
    server = function(input, output) {
        observeEvent(input$test, {
            if (input$test == 'subtab2a') {
                # Simulation of some expensive calculations
                # which are triggered when viewing this tab
                for (i in 1:5) {
                    print('Calculating....')
                    Sys.sleep(1)
                }

            }
        })
    }
)
...