R Shiny App 显示错误的脚本

Question

如果这个问题措辞不准确，请见谅；这是我第一次发布问题。 我正在编写一个闪亮的应用程序，直到几天前它一直运行良好。我遇到了一个问题，每当我运行应用程序时，都会显示一个与我的应用程序完全不匹配的输出。相反，输出似乎与运行的最后一个脚本有关（无论是什么。 这是我的代码：

`
图书馆（闪亮） 图书馆（闪亮BS）

shinyUi= fluidPage()

shinyApp(ui = ui, server = server)          

`

这是我的服务器：

shinyServer(function(input, output, session) {}




shinyApp(ui = ui, server = server)

我不知道是什么导致闪亮显示错误的结果，而不是我实际运行的脚本的结果。 如果有人对我如何隔离或解决问题有任何建议，我将不胜感激。

编辑： 由于我的问题已经得到解答，而且我发布的大部分代码都是多余的，所以我继续将其剥离到最基本的部分。这应该使它更简洁。 [

Answer 1

如果此应用由两个单独的文件 Ui.R 和 server.R 组成，并且您通过在 RStudio 中按下按钮 runapp 来运行它，您应该在两个脚本中删除最后一行

shinyApp(ui = ui, server = server)

因为它运行您之前定义的闪亮应用程序 - 这个应用程序来自屏幕截图，它是根据 ui 和 server 变量定义的。您还应该将Ui.R 中的第一行从

shinyUi= fluidPage(` to fluidPage(

现在按下runapp 按钮后，应用程序应该可以正常工作了。

---

另一种可能性是覆盖ui 和server 变量并通过shinyApp 运行它（作为一个单文件闪亮应用程序）。只需将应用程序的两个部分复制到同一个脚本中，然后更改

    shinyUi= fluidPage( to ui <- fluidPage(

和

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

最后只执行

shinyApp(ui = ui, server = server)