R - 源()在闪亮的UI层中的文件

Question

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

考虑这个玩具闪亮的应用程序:

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也许