Добавление частиц из частиц .js в shinydashboard

Question

У меня возникли некоторые проблемы, включая вывод particles.js (API предоставлен shinyparticles в shinydashboard. Я работаю с R.

Ниже приведен пример, который работает для shiny

library(shiny)
library(shinyparticles)
    ui <- fluidPage(
           particles(),
           headerPanel("This is a sample app")
          )
    server <- function(input, output, session){}

    shinyApp(ui, server)

А вот один для shinydashboard, который, кажется, не работает

library(shinydashboard)
library(shinyparticles)
shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(tags$body(div(particles()))),
    title = "Dashboard example",
    skin = "black"
  ),
  server = function(input, output) { }
)

Получившиеся HTML-коды кажутся идентичными, когда я просматриваю исходный код страницы, но визуализация для частиц не даетпоявляются.

Answer 1

Частицы не появляются, потому что они ниже dashboardBody (по умолчанию: z-index: -10).

Если вы установите z-index частиц на 1, они будут видны, однако любой элемент, который вы добавляете в тело, будет находиться под частицами .

Поэтому установите элементы z-index вбольшее число.(в этом примере я использую только поля)

Код :

dashboardBody(
  tags$head(tags$style("
    .particles-full {
      z-index: 1;
    }
    .box {
      z-index: 2;
    }
  ")),
  particles(),
  box(
    h2("Header"),
    p("Paragraph")
  ),
  box(
    plotOutput("plot")
  )
)

Выход :