Блестящая реактивная функция не работает из одного дня в другой

Question

Я очень новичок в stackoverflow и довольно плохо знаком с R блестящий, так что спасибо за помощь в моем вопросе.

Я написал блестящее приложение, которое работает на сервере Linux. Все работало нормально, но без каких-либо изменений пользовательского интерфейса или вызова сервера две части приложения внезапно перестали работать:

• Нажатие на вкладку «Больше» больше не работает
• При выборе параметра в «Центре загрузки» набор данных не отображается, и кнопка загрузки также не работает.

Я несколько раз перезапускал приложение и проверял, что все пакеты установлены правильно, но ничего не изменилось. Я также не получаю никаких сообщений об ошибках и нет журнала ошибок в /var/log/shiny-server.

Вот мой код:

ui <- navbarPage("My App",
tabPanel("Welcome",
         includeHTML("rmd_files/03_welcome.html")
         ),
tabPanel("Download Center",
         fluidRow(
           column(width = 6,
                  h1("Download Center"),
                  p("In this area you can find our Download Center."),
                  p("Select the dataset you are interested in on the left and a description as well as a preview will appear below."),
                  p("You can also download any dataset as a csv to explore it further.")
                  ),
           column(width = 6,
                  # move column down by 20px
                  style = "top: 20px;",
                  # Input: Choose dataset
                  selectInput("dataset", "Choose a dataset:",
                              choices = c("Choose...",
                                          "TestA",
                                          "TestB",
                                          "TestC"
                                          )),
                  # Button: Download data
                  downloadButton("downloadData", "Download CSV")
                  )
         ),
         hr(),
         h4("Dataset description"),
         textOutput("desc_dc"),
         hr(),
         tableOutput("table_dc")
         ),
navbarMenu("More",
           tabPanel("Presentations",
                    p("under construction")
                    ),
           tabPanel("Feature Assessment",
                    p("under construction"),
                    p("Example: ...")
           )
           )
)

##### Define server logic
server <- function(input, output, session) {

# Download Center: Reactive output for selected dataset
dc_dataset <- reactive({
switch(input$dataset,
       "TestA" = testa,
       "TestB" = testb,
       "TestC" = testc
       )
})

# Download Center: Table of selected dataset
output$table_dc <- renderTable({
dc_dataset()
})

# Download Center: Downloadable csv of selected dataset
output$downloadData <- downloadHandler(
filename = function() {
  paste(input$dataset, "_", Sys.Date(), ".csv", sep = "")
},
content = function(file) {
  write.csv(dc_dataset(), file, row.names = FALSE)
}
)

# Download Center: Reactive output for selected dataset  
dc_description <- reactive({
switch(input$dataset,
       "TestA" = testa_desc,
       "TestB" = testb_desc,
       "TestC" = testc_desc
       )
})

# Download Center: Dataset descriptions
output$desc_dc <- renderText({
dc_description()
})

}


# Create Shiny app
shinyApp(ui = ui, server = server)

Можете ли вы заметить что-то другое, что может помочь? Может ли это быть как-то связано с моей версией R, Linux и т. Д.

>system('shiny-server --version', intern = TRUE)
[1] "Shiny Server v1.5.7.907" "Node.js v8.10.0"

>R --version
R version 3.4.4 (2018-03-15) -- "Someone to Lean On"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

>cat /etc/*-release
DISTRIB_ID=Ubuntu
DISTRIB_RELEASE=14.04
DISTRIB_CODENAME=trusty
DISTRIB_DESCRIPTION="Ubuntu 14.04.5 LTS"
NAME="Ubuntu"
VERSION="14.04.5 LTS, Trusty Tahr"