创建一个可点击的valuebox，将使用Flexbashboard弹出一个数据表

编程问答 2022-08-15

问题描述

大家好，

我正在尝试创建一个可以弹出数据表的valueBox。我知道可以在Shinydashboard上轻松完成此操作，但是我现有的仪表板使用Flexdashboard，因此我必须坚持这一点。理想情况下，我想创建@pork chop在this post的屏幕截图中建议的内容：

enter image description here

我尝试了以下方法：

  1. 在软件包ShinyBS中使用modalDialog 
valueBox(1,caption = paste("I'm clickable!",actionButton("button1"," ")),icon = "fa-thumbs-up",color = "success")

modalDialog(
DT::dataTableOutput("table1",height =800),output$table1 <- DT::renderDataTable({
  DT::datatable(iris)
}))


observeEvent(input$button1,{
    showModal()  
  })
  1. 使用bsmodal 
div(id='clickdiv',valueBox(60,icon = icon("Trademark"),color = "purple")
)

bsModal("moDalexample","Data Table","clickdiv",size = "large",dataTableOutput(iris))

似乎没有任何工作正常。希望能从该领域的专家那里获得一些建议！预先感谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

dashboardflexdashboardrrshiny