r - Shiny 仪表板加 : Opening a closed boxPlus

Question

如何打开(使用代码)一个关闭的 boxPlus？

https://cran.r-project.org/web/packages/shinydashboardPlus/vignettes/improved-boxes.html

Answer 1

我一直在寻找同一个问题的答案，我已经想出了如何使用 shinyjs 来解决这个问题。

library(shinydashboardPlus)
library(shinydashboard)
library(shinyjs)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    boxPlus(
      id = "openable-box-plus",
      title = "Openable boxPlus",
      closable = TRUE
    ),
    actionButton(
      inputId = "open-box-plus",
      label = "Open boxPlus"
    )
  )
)

server <- function(input, output) {
  observeEvent(
    input$`open-box-plus`,
    runjs('
      document
        .querySelector("#openable-box-plus")
        .parentElement
        .style.display = "block";
    ')
  )
}

shinyApp(ui, server)

检查boxPlus 关闭前后的HTML 时，可以看到样式display: none;被添加到 <div>与 class="box" .

要选择具体boxPlus我添加了 id = "openable-box-plus" .自 id去了 child div的 div与 display风格，你必须选择父元素，并更改 display至 "block" :

document
  .querySelector("#openable-box-plus")
  .parentElement
  .style.display = "block";