Как сделать так, чтобы аккордеонный элемент bs4Da sh расширялся при запуске в r блестящий? - PullRequest
Новая
       25

Как сделать так, чтобы аккордеонный элемент bs4Da sh расширялся при запуске в r блестящий?

0 голосов
/ 14 января 2020

Возможно ли иметь аккордеонный элемент bs4Da sh для расширения при запуске? Насколько мне известно, функция аккордеона не имеет входного значения, поэтому я предполагаю, что вы должны использовать вместо нее javascript, но мои знания javascript не очень хороши.

Вот пример код с ошибкой javascript try: 

library(shiny)
library(bs4Dash)

shiny::shinyApp(
  ui = bs4DashPage(
    navbar = bs4DashNavbar(),
    sidebar = bs4DashSidebar(),
    controlbar = bs4DashControlbar(),
    footer = bs4DashFooter(),
    title = "test",
    body = bs4DashBody(
      bs4Accordion(
        id = "accordion",
        bs4AccordionItem(
          id = "item1",
          title = "Item 1",
          status = "danger",
          "Some text here"
        ),
        bs4AccordionItem(
          id = "item2",
          title = "Item 2",
          status = "warning",
          "Some text here"
        )
      ),
      tags$head(tags$script('
        $(document).on("shiny:sessioninitialized", function(event) {
          document.querySelector("#header_item1 a").setAttribute("aria-expanded", "true");
        });
      '))
    )
  ),
  server = function(input, output) {}
)
...