Question

我正在使用开放的NY数据准备测试应用程序 https://tabulinas.shinyapps.io/nyaccidents/

它有一个标签plotlyOutput，从8个图中渲染一个。这完全适用于我的笔记本电脑，并且习惯于在上周使用shinyapps服务器。现在应用程序显示两个阴谋图（无论确切的图表），当我选择第三个图时，它会断开与服务器的连接。

我检查 - 如果我删除阴谋图，一切正常。如果我在第三次选择我已经首先渲染的情节，它无论如何都会崩溃（所以没有理由，所有的情节对象都存储在内存中）

它似乎超过了一些限制，一些新的限制，以前没有活跃。或者R核心，服务器和软件包的更新版本可能存在任何问题。请分享任何想法如何让我的应用程序再次在服务器上运行！

以下是代码的一部分，可能是一个问题

#Server part:
# Button "Back"
  observeEvent(input$Back, {
    current <- as.numeric(input$select)
    if (current > 1){
      updateSelectInput(session, "select",
                        selected = current-1)
    }
  })

#button "Next" 
 observeEvent(input$Next, {
    current <- as.numeric(input$select)
    if (current < 9){
      updateSelectInput(session, "select",
                        selected = current+1)
    }
  })


  output$selector <- renderUI({
    selectInput("select", label = h3("Select plot"), 
                choices = list("Plot1" = 1, "Plot2" = 2, 
                               "Plot3" = 3, "Plot4"=4,
                               "Plot5"=5, "Plot6"=6, "Plot7"=7,
                               "Plot8"=8), selected = 1)
  })

  output$distPlot <- renderPlotly({ 
 if (as.numeric(input$select)==1){
      resplot <- # here code of plotly plot}
# the same for other plots
 resplot
})

# UI part
tabPanel(
  title= div(img(src="summary.jpg",height = 30)), 
         fluidPage( 
           fluidRow(
             column(4,
                    uiOutput("selector"),  # Selectize input with plots
                    actionButton("Back", label = "Back"),
                    actionButton("Next", label = "Next")
           ),
           column( 8,
         htmlOutput("plot_comment") # Plot comment is a text output depending on plot choosen 
         )),
           hr(),
           hr(),
           plotOutput("distPlot", width = "100%", height ="100%")
           )
  )

It looks like this

在绘制2个Plotly图形之后，Plotly与服务器断开连接的闪亮应用程序（用于在R核心和一些软件包更新之前工作）

0 个答案: