我的应用程序适用于反应式表达式,但速度非常慢。 我有两个功能:
FixData清理并修复我的数据(超过500k行),此功能很慢
PlotData返回ggplot图并且速度相当快
我首先要做的是导入我的文件并修复我的数据,而不是“reactive({})”,例如我的数据将被命名为“mydata”。 其次,我使用反应式表达式过滤并表示“my.data”。 我想要的是将我的数据保存在内存中,而不是像我当前的程序那样改变它。
shinyServer(function(input, output) {
# observe({
cp <- reactive({
inFile <- input$file1
if (is.null(inFile))
return(NULL)
read.delim(inFile$datapath, header = TRUE,
sep = "\t",stringsAsFactors=FALSE)
})
up <- reactive({
inFile <- input$file2
if (is.null(inFile))
return(NULL)
read.delim(inFile$datapath, header = TRUE,
sep = "\t",stringsAsFactors=FALSE)
})
tac <- reactive({
inFile <- input$file3
if (is.null(inFile))
return(NULL)
read.delim(inFile$datapath, header = TRUE,
sep = "\t",stringsAsFactors=FALSE)
})
GetData <- reactive({
my.data <- FixData(data.cp = cp(), data.up = up(), data.tac = tac())
ifelse(input$case1 == TRUE & input$case2 == FALSE,
my.data <- my.data[my.data$CONSTRUCTEUR %in% manufacturer &
my.data$TYPE_DE_TERMINAL %in% input$terminal.type, ],
ifelse(input$case2 == TRUE & input$case1 == FALSE,
my.data <- my.data[my.data$TYPE_DE_TERMINAL %in% terminal &
my.data$CONSTRUCTEUR %in% input$manufacturer, ],
ifelse(input$case1 == TRUE & input$case2 == TRUE,
my.data <- my.data[my.data$CONSTRUCTEUR %in% manufacturer &
my.data$TYPE_DE_TERMINAL %in% terminal, ],
my.data <- my.data[my.data$CONSTRUCTEUR %in% input$manufacturer &
my.data$TYPE_DE_TERMINAL %in% input$terminal.type, ]
)))
if(input$lte == TRUE){
my.data <- my.data[my.data$LTE == "Oui", ]
}
ifelse(input$case3 == TRUE,
my.data <- my.data[my.data$Cause %in% cause, ],
my.data <- my.data[my.data$Cause %in% input$pb, ]
)
my.data
})
GetData2 <- reactive({
if (input$compare == "yes"){
cp2 <- reactive({
inFile <- input$file4
if (is.null(inFile))
return(NULL)
read.delim(inFile$datapath, header = TRUE,
sep = "\t",stringsAsFactors=FALSE)
})
up2 <- reactive({
inFile <- input$file5
if (is.null(inFile))
return(NULL)
read.delim(inFile$datapath, header = TRUE,
sep = "\t",stringsAsFactors=FALSE)
})
my.data <- FixData(data.cp = cp2(), data.up = up2(), data.tac = tac())
ifelse(input$case1 == TRUE & input$case2 == FALSE,
my.data <- my.data[my.data$CONSTRUCTEUR %in% manufacturer &
my.data$TYPE_DE_TERMINAL %in% input$terminal.type, ],
ifelse(input$case2 == TRUE & input$case1 == FALSE,
my.data <- my.data[my.data$TYPE_DE_TERMINAL %in% terminal &
my.data$CONSTRUCTEUR %in% input$manufacturer, ],
ifelse(input$case1 == TRUE & input$case2 == TRUE,
my.data <- my.data[my.data$CONSTRUCTEUR %in% manufacturer &
my.data$TYPE_DE_TERMINAL %in% terminal, ],
my.data <- my.data[my.data$CONSTRUCTEUR %in% input$manufacturer &
my.data$TYPE_DE_TERMINAL %in% input$terminal.type, ]
)))
if(input$lte == TRUE){
my.data <- my.data[my.data$LTE == "Oui", ]
}
ifelse(input$case3 == TRUE,
my.data <- my.data[my.data$Cause %in% cause, ],
my.data <- my.data[my.data$Cause %in% input$pb, ]
)
my.data
}
})
observe({
if(input$compare == "no"){
output$myChart1 <- renderPlot({
my.plot <- PlotDataManBis(GetData(),
var = input$variable)
my.plot
})
output$myChart2 <- renderPlot({
my.plot <- PlotDataTypeBis(GetData(),
var = input$variable)
my.plot
})
output$myChart3 <- renderPlot({
my.plot <- PlotDataCauseBis(GetData(),
var = input$variable)
my.plot
})
output$resume <- renderDataTable({
my.data2 <- GetData()
my.data2
},
options = list(bSortClasses = TRUE, iDisplayLength = 10,
aLengthMenu = list(c(5, 10, -1), c('5', '10', 'All'),
aoColumnDefs = list(list(sWidth=c("100px"),
aTargets=list(0)))
))
)
}else{
output$myChart1 <- renderPlot({
my.plot <- PlotDataMan(GetData(), GetData2(),
var = input$variable)
my.plot
})
output$myChart2 <- renderPlot({
my.plot <- PlotDataType(GetData(), GetData2(),
var = input$variable)
my.plot
})
output$myChart3 <- renderPlot({
my.plot <- PlotDataCause(GetData(), GetData2(),
var = input$variable)
my.plot
})
output$resume <- renderDataTable({
my.data2 <- GetData()
my.data2
},
options = list(bSortClasses = TRUE, iDisplayLength = 10,
aLengthMenu = list(c(5, 10, -1), c('5', '10', 'All'),
aoColumnDefs = list(list(sWidth=c("100px"),
aTargets=list(0)))
))
)}})
# })
})
谢谢你, MOS
答案 0 :(得分:1)
此页面可以帮助您https://gist.github.com/wch/9606002。基本上,如果您在文件中放置actionButton
,则可以在文件输入周围添加isolate
括号,以便每次更改输入时数据都不会更改。查看该页面以了解更多复杂内容,但基本上您会在用户输入文件的位置旁边显示actionButton
,并指示该按钮会使用该新数据重新运行应用程序。然后在您的server.R中,将input$nameofyouractionButton
作为导入和修复数据的反应式表达式中的第一行,然后围绕其余的反应式表达式isolate()
。希望有所帮助!