Question

我有一个闪亮的服务器托管在AWS r5.2xlarge Ubuntu-18.04实例中，并且正在使用它来部署我的工作。我的一个应用程序使用rpivotTable pkg渲染了一个大数据框，当我尝试用此数据对该应用程序进行午餐时，我收到一个错误消息，但它在服务器中本地正常运行，但是我收到“与服务器断开连接'当我远程访问它时。因此，我创建了一个日期范围过滤器以最小化数据。之后，它的工作，但当我扩大这个范围，我再次得到错误。我查看了日志文件，发现它们没有问题，因此任何人都可以帮助我解决此问题，甚至可以给我一种使用rpivotTable包之类的工具来提高Parallel渲染性能的方法？ >

这是我的应用代码：

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)

如何使用闪亮的应用程序解决“与服务器断开连接”问题

0 个答案: