flipBox в модальномDialog в Shiny R - PullRequest
Новая
       26

flipBox в модальномDialog в Shiny R

0 голосов
/ 19 октября 2018

Я пытаюсь поместить flipBox в modalDialog в Shiny, но он не работает хорошо.Когда появляется modalDialog, я обычно вижу первую страницу flipBox, но когда я нажимаю кнопку, чтобы увидеть вторую страницу, ничего не происходит.Кто-нибудь знает, если я делаю что-то не так или, может быть, проблема в блестящей стороне, и это невозможно сделать так? 

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

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    column(6, offset = 1, 
      fluidRow(uiOutput("button")),
      fluidRow(br()),
      fluidRow(flipBox(id = 1, "page 1", back_content = tagList("page 2")))
    )
  )
)

server <- function(input, output) {
  observeEvent(input$RunModalDialog, {showModal(uiOutput("ModalDialog"))})
  output$button      <- renderUI({actionButton("RunModalDialog", "RunModalDialog")})
  output$ModalDialog <- renderUI({modalDialog(flipBox(id = 1, "page 1", back_content = tagList("page 2")))})
}

shinyApp(ui, server)
...