r - 如何在文本框中水平显示文本+渲染文本？

Question

我想创建一列 3 个小文本框，每个小文本框都有一个静态字符串和一个渲染值，如“max: 153”。这是我目前拥有的。

# ui.R
...
verbatimTextOutput("var1_max"),
varbatimTextOutput("var1_min")
....

# server.R
...
output$var1_max <- renderText({ max(df()$feature })
output$var1_min <- renderText({ min(df()$feature })
...

这将使我得到只有值的文本框，我可以得到带有图标的信息框，但我只想要一个小框，上面写着“Min：'var1_min'”和另一个带有“Max：'var2_max'”的小框，但我不清楚如何添加文本。

Answer 1

您可以使用pasteorsprintf等​​来创建替换变量的文本。例如，

output$var1_max <- renderText({ paste("Max:", max(df()$feature)) })

或者，如果您希望“Max：”不被渲染，也许可以使用fluidRow

fluidRow(
    column(width=1, "Max:"),
    column(width=1, verbatimTextOutput("var1_max"))
)