R 如何内联包含变量

这看起来应该很简单，但我想在UI.R的一句话中包含一个在server.R中创建的变量

例如，server.r：

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

不走运。最后一种方法让我对变量的存储方式（列表等）有了粗略的了解

这看起来很简单，但我想不出来。例如：

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())})
            }))

库（闪亮）
采样这里什么是采样？UI中定义的函数？它是服务器中定义的值的反应填充矩阵。averageSampleSize函数只返回样本大小矩阵的平均值。我希望能够在UI中的一个文本字符串中打印这一意思。谢谢
HTML("Given blah blah ...", textOutput("averageSampleSize")

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())})
            }))