Googleのグーグルシートからデータを取り出して表示

Question

Googleスプレッドシートからデータにアクセスし、Shinyアプリで表として表示しようとしています。スプレッドシートにアクセスしたことの確認後、アプリは何も表示せずに実行を続けます。ただし、コンソールへのデータの印刷は機能します。

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

server.R使用renderDataTable({})であなたがdataTableOutput()

を使用する場合は、このコードは動作します：

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)