如何包含变量内联答案

【问题标题】：How to include a variable inline如何包含变量内联
【发布时间】：2013-12-05 17:40:22
【问题描述】：

这似乎应该很容易，但我想在 UI.R 的一个句子中包含一个在 server.R 中创建的变量。

例如 server.r:

averageSampleSize <- reactive({
    round(mean(sampleSizes()), 2)
})

在 server.R 中，我将其作为 averageSampleSize() 访问

我想在一个句子中的 UI 中显示它，例如，“给定设置，跨模拟所需的平均样本大小为 XXX”

我尝试了一些东西，比如包含在 Server.r 中：

output$averageSampleSize <- renderText({averageSampleSize()})

在 ui.R 中：

HTML("Given blah blah ...", textOutput("averageSampleSize")

运气不好。最后一种方法让我对变量的存储方式（列表等）一无所知

这看起来很简单，但我想不通。

【问题讨论】：

这里的sampleSizes 是什么？ UI 中定义的函数？
它是服务器中定义的值的反应填充矩阵。 averageSampleSize 函数只返回样本大小矩阵的平均值。我希望能够在 UI 中的一串文本中打印出这个意思。谢谢。

标签： r shiny

【解决方案1】：

例如：

library(shiny)

sampleSizes <- reactive(runif(100))
runApp(list(ui=bootstrapPage(
            textOutput("averageSampleSize")),
            server=function(input,output){
              averageSize <- reactive({
                round(mean(sampleSizes()), 2)
              })
               output$averageSampleSize <- renderText({paste('res=',averageSize())})
            }))

【讨论】：