2014-02-20 208 views
12

我發現如何更改Shiny中用戶界面的背景顏色。我找到的退出是它也爲我用tableOutput顯示的表格的背景着色。這裏我展示一個虛擬示例。R Shiny:如何更改表格的背景顏色

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") ))) 

server.R

shinyServer(function(input,output){output $ dummy < - renderTable({= 1:4,B = 2:5,C = rep(「aaa」,4)) })})

我得到的是這種

enter image description here

什麼,我想獲得(我用GIMP重建它)是

enter image description here

感謝大家的幫助!

回答

12

一個解決方案已被賦予對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)) }) 
    } 

) 
) 

我還請你閱讀的光澤谷歌組,它展示瞭如何使用奉迎包生成HTML表並插入討論他們在一個閃亮的應用程序這樣可以更靈活地控制風格。

+1

一個不錯的方法,但它也填充了表格右側的所有空間。任何適應表格寬度的解決方案? – Rufo

+1

@Rufo好問題。我一直只能用jQuery爲表添加樣式,我不明白爲什麼它不起作用。 –

+1

@Rufo我現在修改了我的答案。 –