shinyglide не работает внутри bsCollapsePanel - PullRequest
Новая
       21

shinyglide не работает внутри bsCollapsePanel

0 голосов
/ 26 мая 2020

Я пытаюсь создать приложение, в котором каждая панель сворачивания будет содержать карусель для щелчка по элементам внутри этой панели.

Но, похоже, при совместном использовании этих двух библиотек (shinyBS и shinyglide) возникает некоторая проблема.

Небольшой воспроизводимый пример приведен ниже. Когда вы нажимаете кнопку «Открыть панель», содержимое не отображается до тех пор, пока размер страницы не изменится пользователем. После изменения размера содержимое скольжения становится видимым внутри панели свертывания.

Похоже, какая-то проблема с синхронизацией c, shinyglide делает что-то до свертывания панели, когда должно быть наоборот?

Мой вопрос в том, как сделать содержимое скольжения внутри панели видны без изменения размера вручную, я что-то упустил?

Спасибо за любые подсказки по этому поводу. 

library(shiny)
library(shinyBS)
library(shinyglide)

ui <- fluidPage(

  uiOutput("klide")  

)

server <- function(input, output, session) {

  output$klide <- renderUI({


      bsCollapse(id = "jee", multiple = FALSE, open = NULL,  
        bsCollapsePanel("Panel1", 
          glide(
            height = "400px",
            screen(
              renderDataTable({head(mtcars)})
            ),
            screen(
              renderDataTable({head(morley)})
            )
          )
        ),
        bsCollapsePanel("Panel2", 
          glide(
            height = "400px",
            screen(
              renderDataTable({head(iris)})
            ),
            screen(
              renderDataTable({npk})
            )
          )
        )
      )
  })
}

shinyApp(ui, server)
...