运行应用程序一次后，R Shiny 500 Internal Server Error答案

【问题标题】：R Shiny 500 Internal Server Error after I run the app once运行应用程序一次后，R Shiny 500 Internal Server Error
【发布时间】：2022-01-27 23:42:27
【问题描述】：

我使用 R shiny 已经有一段时间了，但突然之间，我遇到了这个非常奇怪的问题。如果我重新启动我的 PC 并在我的本地 PC (Windows + Chrome) 上启动我的 R Shiny 应用程序，它工作正常，我可以在本地 (http://127.0.0.1:5117/) 测试我的应用程序。然后，我停止它并再次启动它。从那时起，Chrome 一直给我这个错误信息： “500内部服务器错误”。它不可能是代码错误，因为它在我第一次启动时就起作用了。我使用不同的闪亮应用程序尝试相同的确切步骤，它们都会导致相同的问题。我可以在这里分享一个我拥有的示例闪亮应用程序，但我认为它不会有太大帮助，因为它第一次工作，然后它不断给我“500 内部服务器错误”。

由于我的应用非常大，我开始逐步删除代码片段。真正奇怪的是，我基本上删除了所有内容，但仍然出现该错误！这就是代码现在的样子。我在同一个文件夹中有一个名为 app.R 的文件和另一个名为 global.R 的文件。这是 app.R 文件。

#this is app.R
source("global.R")  

ui <- dashboardPage(  
  title = "Custom Dashboard", 
  dashboardHeader(title = "AB MuniGate"),
  
  dashboardSidebar(  
    #includeCSS("www/styles.css"),
    
    sidebarMenu(
      menuItem("Contact", tabName = "contact", icon = icon("envelope"))
    )
  ),
  dashboardBody( 
    tabItems(
      
      tabItem(tabName = "contact",
        h2("Contact.")
          )
    )
  )
)
  
server <- function(input, output, session) {    
  cat("\nHello\n")
}

cat("\nLaunching   'shinyApp' ....")
shinyApp(ui, server)

这是 global.R 文件：

library(shiny)
cat("\n* trying to use library shinyjs ")

#library(shinyBS)
library(shinydashboard)
#library(shinyjs)
cat("\n* library shinyjs  succesfull!")

cat("\n\n\n ******** 'global.R'   completed. ***********************  Curr.Time: ",format(Sys.time()),"\n\n\n")

我还附上了 Chrome 显示给我的屏幕截图。如果还有什么我可以分享的，请告诉我。谢谢

【问题讨论】：

我想你有一个 shiny-server 在本地测试后部署它。看一下日志文件，很可能是代码有bug，也可能是包等依赖问题
@Pork Chop 日志没有显示任何错误，只有几个警告，如“水槽（）中的警告：没有水槽可移除”。另外，如果代码中存在错误，那么它甚至不会在第一次运行时运行，对吧？

标签： r shiny

【解决方案1】：

如果有人会遇到类似的问题，我设法通过将所有文件（不包括 R 项目文件）复制并粘贴到一个新文件夹中并用新项目创建一个新项目来解决我的问题。由于一些奇怪的原因，该问题隐藏在显然已损坏的 R 项目文件中。我检查了它的设置，但似乎没有任何东西可以解释这种奇怪的行为。将文件移动到新文件夹并使用新名称的新 R 项目解决了我的问题。

【讨论】：