在RInno软件包中运行R

我有一个闪亮的应用程序，我想使用RInno包运行它

现在我的问题是，在创建应用程序并运行compile_iss之后，我开始安装应用程序。最后，当应用程序启动时，会出现以下错误：

ERROR: Can't call `runApp()` from within `runApp()`. If your application code contains `runApp()`, please remove it.

我的应用程序中不包含

runApp（）

我在末尾包含了以下代码：

 session$onSessionEnded(function() {
    stopApp()
    q("no")
  })

我以以下内容结束我闪亮的应用程序：

shinyApp(ui = ui, server = server)

有人知道我如何解决这个错误吗

新增代码：

ui <- fluidPage( 
  titlePanel(""),
                      h5(""),
                      sidebarLayout(
                        sidebarPanel(
                          selectInput("type", "Select Type of Record:",
                                      choices=c('A', 'B', 'C'),
                                      selected="A"),
                          DT::dataTableOutput("responses", width = 300), tags$hr(),
                          textInput("Comment", "Comments:", ""),
                          actionButton("submit", "Submit")),
                        mainPanel(    
                          plotlyOutput("plot")
                        )
                      )
             )


server <- function(input, output, session) {
  mydata <- reactive({
    invalidateLater(30 * 60000,session)
    odbcChannel<- odbcConnect("a", uid, pwd) 
    message <- sqlQuery(odbcChannel, "select a, b,c 
                        from table
                        ")
  #I got rid of all the other stuff, as I figured it was unimportant. Let me know if you need to see more

  })

session$onSessionEnded(function() {
    stopApp()
    q("no")
  })

}

---

uiRInno设计用于在应用程序的任何代码运行之前，在应用程序的启动序列中调用
runApp（）
shinyApp（ui=ui，server=server）
正在尝试第二次启动应用程序

一个好的编译前检查是运行
runApp（“ui.R/server.R的路径”）
，因为这正是RInno尝试启动应用程序的方式

如果您从应用程序中删除shinyApp（ui=ui，server=server）
，应该可以修复错误，但如果您仍有问题，请告诉我，我很乐意与您一起解决
 我已经取出了shinyApp（ui=ui，server=server）。很遗憾，错误仍然出现。请确保您的文件具有正确的名称。ui.R和server.R其他所有内容都应该来源于这两个文件中的一个@David你能分享更多你的应用程序代码吗？它使用的是app.R还是ui.R、server.R和global.R的组合？该文件名为app.R吗？是的，您应该将它们分解为ui.R和server.R文件，类似于示例应用程序