HTML выходной текст не меняется в зависимости от CSS-файла

Question

Я хочу изменить размер шрифта для некоторого htmloutput в поле в блестящем.Для этого я использую внешний файл CSS.Один воспроизводимый пример будет следующим (просто измените путь CSS):

library(shiny)

ui <- fluidPage(
  includeCSS("C:/.../trial.css"),

  box(width = 4, title = "This does not change", htmlOutput("text")),
  box(width = 4, title = "basic", "Some text that changes")
)

server <- function(input, output) {

  output$text <- renderUI({
      sentence1 <- paste("<h3>", "<b>", "Something", "</b>", "</h3>")
      sentence2 <- paste("<h3>", "<b>", "Something else", "</b>", "</h3>")
      HTML(paste(sentence1, sentence2, sep = "<br/>"))
  })

}

shinyApp(ui = ui, server = server)

Файл CSS, который я использую, указан следующим образом:

.box {
    font-family: "Open Sans";
    font-size: 45px;
    color: red;
}

Моя проблема в том, что покаво втором блоке изменяются размер шрифта, семейство и цвет, в первом - только цвет, и я не могу понять, почему.Я что-то упускаю из виду?

Answer 1

Если вы запустите ui непосредственно в консоли R, вы увидите структуру ui HTML, поскольку вы можете видеть, что внутри блока div в первом блоке для этого есть div, называемый «глянцевый-html-output».Причина, по которой CSS отображается во 2-й ячейке, но не в 1-й ячейке.

Приведенный ниже CSS позволит вам получить доступ к 1-ой ячейке

.box {
  font-family: "Open Sans";
  font-size: 45px;
  color: red;
}
h3 {
  font-family: "Open Sans";
  font-size: 45px;
  color: red;
}