Question

我的闪亮工具真的很奇怪。

其中一个数据表输出没有出现在页面上，但是如果我重新打开并关闭ui.R文件而没有任何更改然后重新加载页面，它就会显示没有任何问题。

在ui.R中，这是我对此数据表输出的所有内容：

fluidRow(column(width = 12,box(width =NULL,dataTableOutput("df"))))

在server.R中：

GetDB=eventReactive(input$updatetable, {
  dbibase<-dbConnect(MySQL(), user = "user", password = "mypas",dbname = "dbname", host="host")
dbGetQuery(dbibase,"set names utf8")
gettable<-data.table(dbGetQuery(dbibase, "Select * FROM PIPELINE;"))
dbDisconnect(dbibase)
gettable
}, ignoreNULL=FALSE)

output$df<-DT:: renderDataTable({DT:: datatable(GetDB(),extensions = 'FixedColumns',  options=list(scrollX = TRUE,fixedColumns = list(leftColumns = 3), lengthMenu = list(c(10, 20, -1), c('10', '20', 'All')),  pageLength = 15 ) })

有谁知道如何解决这个问题？

感谢您提前提供任何帮助

Answer 1

如果有人遇到同样的问题，请留下答案。必须在shiny.R和ui.R文件中调用所有库。在我的情况下，我只在server.R中调用DT，当我将它添加到ui.R时问题已经消失

仅当ui.R作为最后一个文件关闭时，闪亮输出才有效

1 个答案: