Заполните HTML-текст блестящим списком переменных, созданных на сервере.R

Question

Я хотел бы использовать list (), сгенерированный на server.r для заполнения абзаца в 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)