Anzeigen von Daten aus Googlesheets in Shiny

Question

Ich versuche, auf Daten aus einer Google-Tabelle zuzugreifen und sie als Tabelle in einer Shiny-App anzuzeigen. Nach der Bestätigung, dass auf die Tabelle zugegriffen wurde, wird die App weiterhin ausgeführt, ohne dass etwas angezeigt wird. Das Drucken der Daten auf der Konsole funktioniert jedoch.

server.R

library(shiny) 
library(googlesheets) 

shinyServer(function(input, output) { 
    sheet <- gs_title("Google Sheet") 
    data <- gs_read_csv(sheet) 

    output$table <- renderTable{ 
    data 
    } 
}) 

ui.R

library(shiny) 
shinyUI(pageWithSidebar(
    mainPanel(
    dataTableOutput('table') 
) 
)) 

Answer 1

In server.R Verwendung renderDataTable({}) wenn Sie dataTableOutput()

Dieser Code verwenden funktioniert:

library(shiny) 
library(googlesheets) 

server <- function(input, output) { 
    sheet <- gs_title("Google Sheet") 
    data <- gs_read_csv(sheet) 

    output$table <- renderDataTable({ 
    data 
    }) 
} 

ui <- fluidPage(sidebarLayout(sidebarPanel("Test"), 
           mainPanel(dataTableOutput('table')) 
          ) 
       ) 

shinyApp(ui = ui, server = server)