Htykuut

I have a shiny-server Hosted in AWS r5.2xlarge Ubuntu-18.04 Instance, And I'm using It to deploy my work.
One of my Apps uses rpivotTable pkg to render a big data-frame and i get an error when i try to lunch this app with this data,but its working fine Locally in the server but i get 'Disconnected from the server' when i access to it remotely.
SO i created a date range filter to minimize the data. after that it's worked but when i expand this range i get the error again.
i reviewed the log files and there's no problem with them So any one can help me to solve this problem Or even give my a way to Boost the performance of rpivotTable rendering using something like Parallel package ?

This's my App code:

ui <- fluidPage(

  theme = shinytheme("cerulean"),

  titlePanel("Gross Profit"),

  sidebarLayout(

    sidebarPanel(

      dateRangeInput('dateRange',

                     label = 'Date range input',

                     start = max(GrossProfitCube$Date) - 30, end = max(GrossProfitCube$Date)

      ),br(),

      downloadButton('downloadData', 'Download All Data as CSV'), br(),br(),



      width = 3

    ),



    mainPanel(

      tabsetPanel(

        tabPanel("Sales pivot",withSpinner(rpivotTableOutput("pivot")),style = "font-size: 85%; width: 84%")



      )

    )

  )

)

server <- function(input, output, session) {



  Data <- reactive({

    GrossProfitCube %>% filter(Date >= input$dateRange[1] , Date <= input$dateRange[2])

  })

  output$pivot <- renderRpivotTable({

    rpivotTable(data = Data(), aggregatorName = "Sum", rendererName = "Table"

                ,hiddenFromAggregators = colnames(GrossProfitCube)[c(1:17)]

                ,hiddenFromDragDrop = colnames(GrossProfitCube)[c(18:27)]

                , width="50%", height="550px")

  })



  output$downloadData <- downloadHandler(

    filename = 'GrossProfit.csv',

    content = function(file) {

      write.csv(Data(), file)

    }

  )

  session$onSessionEnded(stopApp)

}



shinyApp(ui, server)