0
私は光沢のあるツールの本当に奇妙な動作をしています。光沢のある出力は、ui.Rが最後のファイルとして閉じられた場合にのみ機能します
データ出力可能な出力の1つがページに表示されませんが、変更せずに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) })
誰もがこの問題を解決する方法を知っていますか?任意のための
おかげで、誰かが同じ問題を抱えている場合だけ、ここで答えを残すために、事前
クエリから ';'を削除しようとしました –
問題を修正しました。すべてのライブラリはshiny.Rファイルとui.Rファイルの両方で呼び出さなければなりません。私の場合、私はそれをui.Rに追加したときにはserver.RのみでDTに電話しましたが、問題は無くなりました – user3825422
良い、私はうれしいです。他の人がそれをカバーすることを知るように、自分で答えを出すことができます。乾杯 –