在閃亮的應用程序中刪除反應性表達

Question

我的應用程序可用於反應式表達式，但速度很慢。 我有兩個功能：

• FixData清理並修復我的數據（超過50萬行），此功能很慢

• 返回一個ggplot圖並且相當快的PlotData

我首先要做的是導入文件並修復沒有“ 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)))

                 ))
  )}})
  #   })  
})

謝謝莫斯

Answer 1

該頁面應為您提供幫助https://gist.github.com/wch/9606002 。 基本上，如果在文件中放置一個actionButton ，則可以在文件輸入周圍放置一個isolate括號，以使每次輸入更改時數據都不會更改。 查看該頁面，了解更多的復雜性，但實際上，您將在用戶輸入文件的actionButton旁邊有一個actionButton ，並指示該按鈕使用該新數據重新運行該應用程序。 然后在server.R中，將input$nameofyouractionButton放置在反應表達式中的第一行，在該行中導入和修復數據，然后在其余反應表達式周圍進行isolate() 。 希望有幫助！