使用在 server.R 上创建的变量列表填充闪亮的 html 文本

Question

我想使用在 server.r 上生成的 list() 来填充 ui.r

中的一个段落

server.r

shinyServer(function(input, output) {
    output$out <- reactive({
        list(
            a = 'brown',
            b = 'quick',
            c = 'lazy'
        )
    })
})

ui.r

library(shiny)
shinyUI(fluidPage(
    p('The ', output$out$a, output$out$b, 'fox jumps over the ', output$out$c, 'dog')
))

我知道代码不正确，您必须使用辅助函数来访问 ui.r 中的数据，但我只是想说明我的问题。

Answer 1

也许我不明白你的意图，但看看这个：

library(shiny)

server <- function(input, output) {
  out <- reactive({

    tmp <- list()
    tmp <- list(
      a = 'brown',
      b = 'quick',
      c = 'lazy'
    )

    return(tmp)
  })

  output$a <- function() {
    out()[[1]]
  }

  output$b <- function() {
    out()[[2]]
  }

  output$c <- function() {
    out()[[3]]
    }
}

ui <- shinyUI(fluidPage(
  p('The ', textOutput("a"), textOutput("b"),
    'fox jumps over the ', textOutput("c"), 'dog')
))

shinyApp(ui, server)

使用在 server.R 上创建的变量列表填充闪亮的 html 文本

Populate html text in shiny with a list of variables created on server.R

html

r

server-side

shiny