*Estou testando o pacote "qwraps2", então estou rodando o exemplo em: https://github.com/r-lib/xml2/issues/151 <https://github.com/r-lib/xml2/issues/151>, conforme abaixo.* set.seed(42) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(qwraps2) # define the markup language we are working in. # options(qwraps2_markup = "latex") is also supported. options(qwraps2_markup = "markdown") data(mtcars) mtcars2 <-dplyr::mutate(mtcars, cyl_factor = factor(cyl,levels = c(6, 4, 8), labels = paste(c(6, 4, 8), "cylinders")), cyl_character = paste(cyl, "cylinders")) our_summary1 <- list("Miles Per Gallon" = list("min" = ~ min(mpg), "max" = ~ max(mpg), "mean (sd)" = ~ qwraps2::mean_sd(mpg)), "Displacement" = list("min" = ~ min(disp), "max" = ~ max(disp), "mean (sd)" = ~ qwraps2::mean_sd(disp)), "Weight (1000 lbs)" = list("min" = ~ min(wt), "max" = ~ max(wt), "mean (sd)" = ~ qwraps2::mean_sd(wt)), "Forward Gears" = list("Three" = ~ qwraps2::n_perc0(gear == 3), "Four" = ~ qwraps2::n_perc0(gear == 4), "Five" = ~ qwraps2::n_perc0(gear == 5)) ) our_summary1 ### Overall summary_table(mtcars2, our_summary1) *O código foi executado com sucesso no RStudio, porém a tabela aparece como:* [image: Screenshot from 2018-08-04 18-29-38.png] *Como faço para aparecer a tabela formatada como no exemplo:* [image: Screenshot from 2018-08-04 18-31-38.png] -- *In Jesu et Maria* *Obrigado* *Prof. Elias Carvalho* *"Felix, qui potuit rerum cognoscere causas" (Virgil 29 BC)"Blessed is he who has been able to understand the cause of things"*
