Как я могу создать заголовок для моего verbatimTextOutput на моей панели управления RShiny?

Question

Я планирую иметь несколько verbatimTextOutputs на моей панели управления RShiny. Поэтому, чтобы помочь пользователю, я хотел бы выделить их, добавив над ними названия / названия.

Однако 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)