R Shiny ，根据输入加载数据

Question

我在服务器端每天都有数据，并希望根据日期输入加载数据

在服务器端，我有这个:

 dateInput("date","Enter a date:",value = "2014-01-13"))

在 UI 方面，

library(shiny)
library(googleVis)
library(rpart.plot)

load("data_2014_01_13_new.RData")  #seg and fit are data in this file
shinyServer(function(input, output) {
    output$values <- renderGvis({
      gvisTable(seg[seg$rate >= input$test[1] & seg$rate <= input$test[2],])
    })
    output$plot <- renderPlot({
     prp(fit,extra=T)
    })
})

我想将负载放入服务器功能中，并且可以随着日期的变化加载不同的数据。谢谢!

Answer 1

阅读教程中的这些页面:

http://rstudio.github.io/shiny/tutorial/#scoping

http://rstudio.github.io/shiny/tutorial/#reactivity

你可以把 load在 shinyServer 内调用另一个函数 reactive这样您就可以动态引用数据集，并且每个 session 可以同时加载不同的数据。

所以在你的 shinyServer 中添加这样的函数函数(请注意，您可能需要修改日期输入字符串的格式，以使其与文件的命名方式兼容)。

dataset <- reactive({
  filename <- paste0("data_", input$date, ".Rdata")
  load(filename)
})

那么你可以引用 dataset()在 server.R 的其他地方获取此用户数据集的适当值。