2015-02-24 317 views
0

我有一個數據幀在我的服務器文件如下- [R閃亮變色

output$table<-renderTable({ 
     P.Value<- c(lev.p,bart.p,turn.p,shap.p,jar.p,linm.p) 
     Test.Statistic<-c(lev.s,bart.s,turn.s,shap.s,jar.s,linm.s) 
     df<-data.frame(P.Value,Test.Statistic) 
     rownames(df, do.NULL = TRUE, prefix = "row") 
     rownames(df) <- c("Levene Test","Bartlett Test","Turning Point Test","Shapiro-Wilk Test","Jarque Bera Test","Linear Model Constant Drift Test") 

     df 
    }) 

和UI作爲

​​

這產生了表如下 enter image description here

但是我想將表格的灰色輪廓變成另一種顏色,比如黑色。我如何去做這件事?

謝謝

+0

元素的一個閃亮的應用程序中的樣式可以通過CSS來控制。看看[用CSS設計你的應用程序](http://shiny.rstudio.com/articles/css.html)以獲取更多信息。 – MrFlick 2015-02-24 03:52:32

回答

0

下面是如何在表格中設置樣式的示例。請訪問Tip: Adding borders to data tables with CSS瞭解更多詳情。還請熟悉datatables並查看DT package。在這裏,我使用標籤來設置邊框的樣式(標頭爲藍色,其餘爲黑色)。你可以谷歌的CSS顏色或例子可以找到here

編輯:您還可以控制邊境像素:border-width: 5px;here更多信息

rm(list = ls()) 
library(shiny) 

test_table <- cbind(rep(as.character(Sys.time()),10),rep('a',10),rep('b',10),rep('b',10),rep('c',10),rep('c',10),rep('d',10),rep('d',10),rep('e',10),rep('e',10)) 
colnames(test_table) <- c("Time","Test","T3","T4","T5","T6","T7","T8","T9","T10") 

ui =navbarPage(inverse=TRUE,title = "Coloring Table Borders", 
       tabPanel("Logs",icon = icon("bell"),mainPanel(htmlOutput("logs"))), 
       tags$style(type="text/css", "#logs th, td {border: medium solid #00F;text-align:center}"), 
       tags$style(type="text/css", "#logs td {border: medium solid #000000;text-align:center}")) 

server <- (function(input, output, session) { 
    my_test_table <- reactive({as.data.frame(test_table)}) 
    output$logs <- renderTable({my_test_table()},include.rownames=FALSE) 
}) 

runApp(list(ui = ui, server = server)) 
+0

謝謝!快速提問標籤$ style(type =「text/css」,「#logs td {border:medium solid#000000; text-align:center}」)部分,您如何讓輪廓變得更粗? – Vik 2015-02-24 22:20:46

+0

你可以用像素來控制它,例如border-width:5px;在這裏尋找更多的信息http://www.w3schools.com/css/css_border.asp – 2015-02-24 23:19:32

+0

非常感謝你! – Vik 2015-02-25 01:00:25