Olá à todos, Boa Noite! Estou tentando reproduzir o seguinte código abaixo para gerar uma tabela Html na aba do Viewer: data(mtcars) library(Hmisc) label(mtcars$mpg) <- "Gas" units(mtcars$mpg) <- "Miles/(US) gallon" label(mtcars$wt) <- "Weight" units(mtcars$wt) <- "10<sup>3</sup> kg" # not sure the unit is correct mtcars$am <- factor(mtcars$am, levels=0:1, labels=c("Automatic", "Manual")) label(mtcars$am) <- "Transmission" mtcars$gear <- factor(mtcars$gear) label(mtcars$gear) <- "Gears" mtcars$col <- factor(sample(c("red", "black", "silver"), size=NROW(mtcars), replace=TRUE)) label(mtcars$col) <- "Car color" library(Gmisc) getTable1Stats <- function(x, digits = 0, ...){ getDescriptionStatsBy(x = x, by = mtcars$am, digits = digits, continuous_fn = describeMedian, header_count = TRUE, ...)} t1 <- list() t1[["Gas"]] <- getTable1Stats(mtcars$mpg) t1[["Weight†"]] <- getTable1Stats(mtcars$wt) t1[["Color"]] <- getTable1Stats(mtcars$col) # If we want to use the labels set in the beginning # we add an element without a name t1 <- c(t1, list(getTable1Stats(mtcars$gear))) mergeDesc(t1, htmlTable_args = list(css.rgroup = "", caption = "Basic descriptive statistics from the mtcars dataset", tfoot = "† The weight is in 10<sup>3</sup> kg")) *PORÉM, AO INVÉS DO OUTPUT SAIR NO VIEWER EM FORMA DE TABELA O MESMO PRODUZ A SAÍDA ABAIXO:* <table class='gmisc_table' style='border-collapse: collapse; margin-top: 1em; margin-bottom: 1em;' > <thead> <tr><td colspan='3' style='text-align: left;'> Basic descriptive statistics from the mtcars dataset</td></tr> <tr> <th style='border-bottom: 1px solid grey; border-top: 2px solid grey;'> </th> <th style='border-bottom: 1px solid grey; border-top: 2px solid grey; text-align: center;'>Automatic<br /> No. 19</th> <th style='border-bottom: 1px solid grey; border-top: 2px solid grey; text-align: center;'>Manual<br /> No. 13</th> </tr> </thead> <tbody> <tr> <td style='text-align: left;'>Gas</td> <td style='text-align: center;'>17 (15 - 19)</td> <td style='text-align: center;'>23 (21 - 30)</td> </tr> <tr> <td style='text-align: left;'>Weight†</td> <td style='text-align: center;'>4 (3 - 4)</td> <td style='text-align: center;'>2 (2 - 3)</td> </tr> <tr><td colspan='3' style=''>Color</td></tr> <tr> <td style='text-align: left;'> black</td> <td style='text-align: center;'>11 (58%)</td> <td style='text-align: center;'>5 (38%)</td> </tr> <tr> <td style='text-align: left;'> red</td> <td style='text-align: center;'>6 (32%)</td> <td style='text-align: center;'>6 (46%)</td> </tr> <tr> <td style='text-align: left;'> silver</td> <td style='text-align: center;'>2 (11%)</td> <td style='text-align: center;'>2 (15%)</td> </tr> <tr><td colspan='3' style=''>Gears</td></tr> <tr> <td style='text-align: left;'> 3</td> <td style='text-align: center;'>15 (79%)</td> <td style='text-align: center;'>0 (0%)</td> </tr> <tr> <td style='text-align: left;'> 4</td> <td style='text-align: center;'>4 (21%)</td> <td style='text-align: center;'>8 (62%)</td> </tr> <tr> <td style='border-bottom: 2px solid grey; text-align: left;'> 5</td> <td style='border-bottom: 2px solid grey; text-align: center;'>0 (0%)</td> <td style='border-bottom: 2px solid grey; text-align: center;'>5 (38%)</td> </tr> </tbody> <tfoot><tr><td colspan='3'> † The weight is in 10<sup>3</sup> kg</td></tr></tfoot> </table> Gostaria de saber como faço para que o output seja reproduzido no Viewer? Agradeço à ajuda!