R - Shiny UI 层中的源()文件

Question

我正在尝试将我的 Shiny 应用程序分解为更小的文件，以便通过 git 与同事进行协作变得更加容易。 This question帮助我弄清楚如何使用 source(...,local=T) 将文件中的 source() 文件发送到我的 server.r。现在我正在尝试对我的 UI 层做同样的事情。

考虑一下这个玩具 Shiny 的应用程序:

library(shiny)

ui <- bootstrapPage(
  plotOutput("test"),
  numericInput("n","Number of points",value=100,min=1)
)

server <- function(input, output, session) {
  output$test = renderPlot({
    x = rnorm(input$n)
    y = rnorm(input$n)
    plot(y~x)
  })
}

shinyApp(ui, server)

这个应用程序符合您的预期，一个包含 100 个随机数据点的超宽图表。现在，如果我只想将 plotOutput 移动到单独的文件中怎么办(真正的用例是将 UI 的整个选项卡移动到单独的文件中)。我创建了一个名为 tmp.R 的新文件，它有:

column(12,plotOutput("test"),numericInput("n","Number of points",value=100,min=1))

将它包装在 column 语句中的原因是因为逗号不能只是挂出来。现在我将我的 UI 更新为:

library(shiny)

ui <- bootstrapPage(
  source("tmp.R",local=T)
)

server <- function(input, output, session) {
  output$test = renderPlot({
    x = rnorm(input$n)
    y = rnorm(input$n)
    plot(y~x)
  })
}

shinyApp(ui, server)

现在，“TRUE”这个词只是卡在页面底部。

如何消除这个词的出现？为什么会在那里？

Answer 1

试试 source("tmp.R",local = TRUE)$value 也许