R Shiny: Как изменить цвет фона таблицы

Я нашел, как изменить цвет фона пользовательского интерфейса в Shiny. Я обнаружил, что он также окрашивает фон таблиц, которые я показываю с помощью tableOutput. Здесь я показываю фиктивный пример.

ui.R

shinyUI (pageWithSidebar (
headerPanel ("Dummy"),
sidebarPanel (     теги $hr()),

mainPanel (

# This is what I use to change the background color
list(tags$head(tags$style("body {background-color: #ADD8E6; }"))),

tableOutput("dummy")   ) ))

server.R

shinyServer (функция (ввод, вывод) {вывод $dummy < - renderTable ({     data.frame(A = 1: 4, B = 2: 5, C = rep ( "aaa", 4))})})

То, что я получаю, это

enter image description here

и то, что я хотел бы получить (я использовал GIMP для его воссоздания)

enter image description here

Спасибо всем за вашу помощь!

Ответы

Ответ 1

Решение было найдено в блестящей группе google:

runApp(
  list(ui = bootstrapPage(pageWithSidebar(
    headerPanel("Rummy"),
    sidebarPanel( tags$hr() ),

    mainPanel(

      tableOutput("dummy"),
      # change style:    
      tags$head(tags$style("#dummy table {background-color: red; }", media="screen", type="text/css"))
    )

  )
  )

  ,
  server = function(input, output) {
    output$dummy <- renderTable({ data.frame(A=1:4,B=2:5,C=rep("aaa",4)) }) 
  }

  )
)

Я также приглашаю вас прочитать это обсуждение на блестящей группе google, в которой показано, как использовать пакет pander для генерации html-таблиц и вставки их в блестящее приложение. Это позволяет более гибко управлять стилем.