Не удалось форматировать фрейм данных с помощью xtable

Question

У меня есть дата-рамка, и я хочу отобразить это в HTML-файл с уценкой R. Я могу сгенерировать таблицу с помощью функции Kable от Knitr, но я хотел изменить внешний вид, например, выделить заголовок. как некоторые предложили использовать Stackoverflow для использования xtable, я попытался это сделать. Я взял ссылку из Stackoverflow и попытался создать свой внешний вид, как это.

large <- function(x){ 
paste0('{\\Large{\\bfseries ', x, '}}') 
} 
italic <- function(x){ 
paste0('{\\emph{ ', x, '}}') 
} 

dat <- Final_Summary_table[1:3, 1:6] 

print(xtable(dat), 
sanitize.rownames.function = italic, 
sanitize.colnames.function = large, 
booktabs = TRUE, 
floating = TRUE) 

Но вместо того, чтобы получить красивый стол, то, что я получаю, является чем-то вроде того, что мы пишем в блокноте.

% latex table generated in R 3.3.1 by xtable 1.8-2 package % Mon Nov 14 09:33:01 2016 \begin{table}[ht] \centering \begin{tabular}{rllrrrl} \toprule & {\Large{\bfseries ODS_Tables}} & {\Large{\bfseries AppDS_Tables}} & {\Large{\bfseries ODS_Total_Records}} & {\Large{\bfseries AppDS_Total_Records}} & {\Large{\bfseries Change_in_Count}} & {\Large{\bfseries Results}} \\ \midrule {\emph{ 1}} & HCC & tRefHCCCodes & 338.00 & 338.00 & 0.00 & PASS \\ {\emph{ 2}} & HCC\_COEFF & tRefHHCCOEFFs & 1166.00 & 794.00 & 372.00 & FAIL \\ {\emph{ 3}} & HCC\_HIERARCHY & tRefHHCHierarchies & 337.00 & 253.00 & 84.00 & FAIL \\ \bottomrule \end{tabular} \end{table} 

любой ключ или помощь пожалуйста.

Answer 1

Я использовал форматирование CSS CSS и решил проблему.

<STYLE TYPE="text/css"> 
<!-- 

table { 
    width:100%; 
} 
table, th, td { 
    border: 1px solid black; 
    border-collapse: collapse; 
} 
th, td { 
    padding: 5px; 
    text-align: left; 
} 
table tr:nth-child(even) { 
    background-color: #eee; 
} 
table tr:nth-child(odd) { 
    background-color:#fff; 
} 
table th { 
    background-color: black; 
    color: white; 
} 

---> 
</STYLE>