闪亮：reactive() 检查 read.csv答案

【问题标题】：Shiny: reactive() check on read.csv闪亮：reactive() 检查 read.csv
【发布时间】：2017-08-17 00:11:58
【问题描述】：

我正在编写一个闪亮的服务器脚本，我希望 reactive() 首先检查我的 c 驱动器上的数据，如果它在那里，那么很好，否则做其他数据处理并将其保存以供下一次迭代。并且数据的名称依赖于 input$var

这样下次创建图表会非常快
以下只是我的大问题的一个运行示例

library(shiny)
library(datasets)
library(ggplot2)
mt=mtcars
shinyServer(function(input, output) {
data1 =reactive({
 if(file.exists("input$var.csv")
   {data=read.csv(input$var.csv)})
  else{    
    data=mt[mt$cyl==input$var,] 
  write.csv(data,file="c:\\input$var.csv")
    }
  })  
  output$Plot1 <- renderPlot({
    data2=data1()
    ggplot(data2$d,aes(x=gear,y=wt))+geom_boxplot() })

})

【问题讨论】：

我认为你需要使用 paste 来确定 file.exists 函数，现在它会寻找一个名为 input$var.csv 的文件。试试：file.exists(paste0(input$var,".csv"))，read.csv(paste0(input$var,".csv")) 也一样，还是有其他问题？

标签： r if-statement ggplot2 shiny file-exists

【解决方案1】：

使用paste0，就像 timfaber 所说的那样。在处理文件的 R 函数中，您必须提供完整的字符串，然后 paste0 允许您提供类似“name_with_what_is_in_input$var.csv”的字符串。

ibrary(shiny)
library(datasets)
library(ggplot2)
mt=mtcars
shinyServer(function(input, output) {
data1 =reactive({
 if(file.exists(paste0(input$var,".csv"))
   {data=read.csv(paste0(input$var,".csv"))})
  else{    
    data=mt[mt$cyl==input$var,] 
  write.csv(data,file=paste0("c:\\",input$var,".csv"))
    }
  })  
  output$Plot1 <- renderPlot({
    data2=data1()
    ggplot(data2$d,aes(x=gear,y=wt))+geom_boxplot() })

})

【讨论】：

欢迎你 :) 你可以用闪亮的东西做很多事情。为了美观，您可以查看 shinyjs 和 shinydashboard 包。