Shiny : reactive() check on read.csv

Question

내가 C 드라이브의 데이터를 먼저 확인하기 위해 반짝이는 서버 스크립트를 작성하고 있습니다. 그곳에 있으면 다른 데이터 처리를 수행하는 것이 좋습니다. 다음 반복을 위해 저장하십시오. 그리고 데이터의 이름은

그래서 다음 번에 내 큰 문제가 단지 실행 예

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() }) 

}) 

Answer 1

사용 paste0입니다
은 다음 차트를 만들 정말 빠른 것입니다 입력 $ var에에 따라 달라집니다 팀파블라가 말했듯이. 파일을 처리하는 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() }) 

})