r语言 - Rshiny App显示错误的脚本

Question

如果这个问题不是很有效，请原谅我;这是我第一次发问题。我正在编写一个闪亮的应用程序，直到几天前它一直很顺利。我遇到了一个问题，每当我运行应用程序时，显示的输出根本不匹配我的应用程序。相反，输出似乎与最后运行的脚本有关(不管它是什么)。下面是我的代码:

"
库(亮)库(shinyBS)

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)