如何使用 R 闪亮仪表板显示实时投票结果

Question

对于一个非常新手的问题，我深表歉意。

我正在学习使用 R 闪亮的仪表板来显示通过谷歌表单执行的民意调查的实时信息图表。

这是试用表格：https://forms.gle/pixQ2pui5Qmgh9A4A 这是可用于提取其响应的.csv输出的 url： 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)

Answer 1

formr 是使用 R 进行实时投票可视化的免费解决方案。他们可以主持您的民意调查，但您也可以主持自己的民意调查。