Как отображать результаты опроса в реальном времени с помощью панели инструментов R Shiny

Question

Прошу прощения за очень начинающий вопрос.

Я учусь использовать блестящую приборную панель R, чтобы отображать живую инфографику опросов, выполненных через формы Google.

Это пробная форма: https://forms.gle/pixQ2pui5Qmgh9A4A И это URL-адрес, который может использоваться для извлечения выходных данных .csv из его ответов: https://docs.google.com/spreadsheets/d/1yS1l3Scvw98ueg5ZZe4021a3y5gMqe6FOP-ZrQIvHBo/export?format=csv&id=1yS1l3Scvw98ueg5ZZe4021a3y5gMqe6FOP-ZrQIvHBo&gid=1120079968

Я понимаю, что функция reactiveFileReader () должна постоянно обновлять данные, но это не похоже работать, и сюжет не обновляется, если страница не обновляется вручную. Как можно сделать так, чтобы данные постоянно обновлялись?

Спасибо всем!

library(shiny)
library(shinydashboard)

 ui <- shinyUI(
  dashboardPage(
    dashboardHeader(title = "Data streaming"),
    dashboardSidebar(
      menuItem("Plot")
    ),
    dashboardBody(
      fluidRow(
        box(plotOutput("histogram"))
      )
    )
  )
)

server <- 
  shinyServer(function(input, output, session){

       form.url = "https://docs.google.com/spreadsheets/d/1yS1l3Scvw98ueg5ZZe4021a3y5gMqe6FOP-ZrQIvHBo/export?format=csv&id=1yS1l3Scvw98ueg5ZZe4021a3y5gMqe6FOP-ZrQIvHBo&gid=1120079968"

      dat <- reactiveFileReader(1000, 
                                session, 
                                filePath=form.url, 
                                readFunc = function(filePath) {
                                  read.csv(url(filePath))
                                  })
      output$histogram <- renderPlot({
        hist(dat()$N, cex.main="", xlab="Poll", breaks=5)
        })
})

shinyApp(ui, server)