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