Тег стиля, показывающий при использовании navbarpage в блестящем

Question

Я хочу изменить цвет строк в DT, когда они выбраны в моем приложении, по умолчанию синий.Я использовал этот ответ , и он работает, но по какой-то причине он показывает текст тега стиля в приложении.

Я попытался изменить значение на fluidPage() вместо navbarPage(), и это избавляет от проблемы - но я хочу использовать navbarPage длямои навигационные вкладки!

Я предполагаю, что я делаю что-то глупое - есть идеи?

ПРИМЕРНЫЙ КОД:

library(shiny)
library(DT)
library(data.table)

example_data <- data.table(words = c("on", "scone", "wrong", "stone"), 
                           description = c("The word on", "Scone is not on", "Not on either", "Not here at all"))

ui = shinyUI(navbarPage(tags$style(HTML('table.dataTable tr.selected td, table.dataTable td.selected {background-color: cornsilk !important;}')),
                        title = "Random example",

    fluidRow(
      dataTableOutput("word_searched")
    )
  )
)


server = shinyServer(function(input, output, session) {

  output$word_searched <- renderDataTable({
    datatable(example_data)
  })

  })

shinyApp(ui = ui, server = server)

Answer 1

Просто поместите часть style$tag в fluidRow, и она будет работать.Вам не нужна функция HTML в теге style:

library(shiny)
library(DT)
library(data.table)

example_data <- data.table(words = c("on", "scone", "wrong", "stone"), 
                           description = c("The word on", "Scone is not on", "Not on either", "Not here at all"))

ui = shinyUI(navbarPage(
  title = "Random example",
      fluidRow(
        tags$style('table.dataTable tr.selected td, table.dataTable td.selected {background-color: cornsilk !important;}'),
        dataTableOutput("word_searched")
      )
)
)


server = shinyServer(function(input, output, session) {

  output$word_searched <- renderDataTable({
    datatable(example_data)
  })

})

shinyApp(ui = ui, server = server)

Out: