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

Question

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

ui.R

shinyUI (pageWithSidebar (
headerPanel ("пустышки"),
sidebarPanel ( теги $ час()),

mainPanel (

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

tableOutput("dummy") ))) 

сервер.R

shinyServer (функция (вход, выход) {выход $ фиктивная < - renderTable ({ data.frame (А = 1: 4, В = 2: 5, С = Rep ("ааа", 4)) })})

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

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

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

Answer 1

Решение было дано на shiny google group:

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, которая показывает, как использовать потворствовать пакет для создания HTML-таблицы и вставки их в блестящем приложении. Это позволяет более гибко управлять стилем.