googleVis (gvisTable) не рендеринг с приложением shinydashboard на R

Question

В настоящее время я создаю приложение с shinydashboard и googleVis. gvisTable, на мой взгляд, лучший способ показать мои результаты. Моя проблема заключается в следующем:

приложения (и, таким образом, googleVis) отлично работает с R-браузер на компьютере, но , если я хочу, чтобы показать приложение на другом компьютере, приложение запускается и вычисляет все спрашивает , но таблицы не отображаются с gvisTable. Поскольку он работает на моем компьютере, я не думаю, что проблема исходит из кода, но я покажу вам используемые пакеты и пример того, как я использую gvisTable.

Я использую следующие пакеты:

library(shiny) 
library(shinydashboard) 
library(shinyBS) 
library(shinyjs) 
library(texreg) 
library(googleVis) 

В файле server.R, когда я хочу, чтобы вывести таблицу я использую такой код

output$coefftable <- renderGvis({ 
    ConfInv <- 0.05 
    model <- Arima_Model() 
    CoeffTable <- CoefficientsFunction(ConfInv,model) 
    gvisTable(CoeffTable,options(digits=4)) 
    }) 

где функция CoefficientsFunction возвращает таблицу, используя data.frame.

Для вывода я использую в ui.R

htmlOutput("coefftable") 

Я не понимаю, где эта проблема исходит от, это может быть из RStudio браузера, как предложено в gvisTables not rendering in Shiny apps. Как вы думаете, я могу использовать другой браузер? Если да, то какой из них был бы лучшим?

Answer 1

Попробуйте назначить таблицу, а затем вернуть его в server.R так:

output$coefftable <- renderGvis({ 
ConfInv <- 0.05 
model <- Arima_Model() 
CoeffTable <- CoefficientsFunction(ConfInv,model) 
table <- gvisTable(CoeffTable,options(digits=4)) 
return(table) 
})