在没有 TRUE 评估的情况下在 Rshiny 中使用 source 命令

Question

在制作更大的应用程序时，RShiny我喜欢将我的代码保存在单独的文件中以用于单独的选项卡或菜单。当我RShiny在.R文件中放置命令并使用source()命令调用它时，TRUE会在 UI 元素下方打印a 。我试图调用源都ui.R使用uiOutput()以及invisible()。

如何停止TRUE渲染？

例子：

应用程序

library(shiny)

ui <- fluidPage(h4("Attempt 1"),
                source("TestSource.R",local=T),
                h4("Attempt 2"),
                uiOutput("at2"),
                h4("Attempt 3"),
                invisible(source("TestSource.R")))

server <- function(input, output) {
  output$at2 <- renderUI({
    invisible(source(
      "TestSource.R",
      verbose = F,
      echo = F,
      print.eval = F,
      prompt.echo = F,
      local = T
    ))
  })
}

shinyApp(ui = ui, server = server)

测试源文件

helpText("This is a test")

这是呈现的内容

提前致谢。

Answer 1

用 source("TestSource.R", local=TRUE)$value

一个很好的解释在这里