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

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

您可以使用paste或sprintf等来创建带有变量替换的文本。例如，

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

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

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

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

How to display Text + rendered text horizontally in a textbox?

r

rstudio

shiny

shinydashboard