r - 在没有 TRUE 评估的情况下在 R Shiny 中使用 source 命令

Question

在 RShiny 中进行更大的应用程序时我喜欢将我的代码保存在单独的文件中以用于单独的选项卡或菜单。当我放置 RShiny .R 中的命令文件并使用 source() 调用它命令，一个 TRUE打印在 UI 元素下方。我试过在 ui.R 中调用 source并使用 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
一个很好的解释是 here