javascript - 如何在我的 RShiny 仪表板上为我的 verbatimTextOutput 创建一个标题？

Question

我计划在我的 RShiny 仪表板上有几个 verbatimTextOutputs。因此，为了帮助用户，我想通过在它们上面添加标题/名称来使它们与众不同。

但是，verbatimTextOutputs 没有这样的论点，所以我看了一下我不是特别熟悉的 CSS 样式，所以这里我可能有一个错误，但在我看来我无法为我的对象添加标题使用CSS。我可以做一大堆其他花哨的东西，例如字体类型、颜色等，但这并不能真正解决我的问题。然后我读到我可能需要修改 JavaScript 以将这些标题添加到我的输出之上。

library(shiny)

ui <- fluidPage(
  actionButton("btn", "Press me"),

  verbatimTextOutput("dem"),
  tags$head(tags$style(HTML("
                            #dem { 
                            title: somefancyname;
                            width: 100px;
                            height: 45px;
                            position: relative;
                            }
                            ")))
)

server <- function(input, output, session) {

  observeEvent(input$btn, {
    output$dem <- renderText(1)
  })


}

shinyApp(ui, server)

我走在正确的轨道上吗？有人可以帮我看看我想要实现的目标是否可行，我应该在这里做什么？提前谢谢你。

Answer 1

您不需要样式标签，只需添加带有 h2 或其他标题标签的标题...请参阅 ?tags

library(shiny)

ui <- fluidPage(
  actionButton("btn", "Press me"),
  tags$h2("Dem output"), ### Add one of these above any and all of your outputs...
  verbatimTextOutput("dem"),
  tags$head(tags$style(HTML("
                            #dem { 
                            title: somefancyname;
                            width: 100px;
                            height: 45px;
                            position: relative;
                            }
                            ")))
)

server <- function(input, output, session) {

  observeEvent(input$btn, {
    output$dem <- renderText(1)
  })


}

shinyApp(ui, server)