我有一个带有gvistables的闪亮应用程序。我需要更改表格中每行的字体颜色或背景颜色。我得到的最接近的是改变整个表的背景颜色。是否有可能改变背景或每行的文字颜色?! 我使用人口数据提供了包含样本数据的代码。
require(shiny)
require(googleVis)
runApp(
list(ui = pageWithSidebar(
headerPanel("googleVis on Shiny"),
sidebarPanel(
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars"))
),
mainPanel(
htmlOutput("table")
,tags$head(tags$style(type="text/css", ".myTableHeadrow {background-color:red;} .myTablerow {background-color:yellow;}"))
)
),
server =function(input, output)({
output$table <- renderGvis({
## Table with enabled paging
tbl2 <- gvisTable(Population[1:5, ], options=list(page='enable', height=300, cssClassNames = "{headerRow: 'myTableHeadrow', tableRow: 'myTablerow'}", alternatingRowStyle = FALSE), chartid = "mytable")
tbl2
})
})
)
)
我的HTML理解还不足以解决这个问题。任何帮助表示赞赏!
我遇到了下面的JSCode,它根据需要为背景和文本着色。
var data = new google.visualization.DataTable();
data.addColumn('string', 'Department');
data.addColumn('number', 'Revenues');
data.addRows([
['Shoes', 10700],
['Sports', -15400],
['Toys', 12500],
['Electronics', -2100],
['Food', 22600],
['Art', 1100]
]);
var table = new google.visualization.Table(document.getElementById('colorformat_div'));
var formatter = new google.visualization.ColorFormat();
formatter.addRange(-20000, 0, 'white', 'orange');
formatter.addRange(20000, null, 'red', '#33ff33');
formatter.format(data, 1); // Apply formatter to second column
table.draw(data, {allowHtml: true, showRowNumber: true, width: '100%', height: '100%'});
有人可以帮我弄清楚如何使它适应光泽吗?