Tables dans rmarkdown?

Question

J'ai mes résultats sous forme de tableau à partir du code R. Quand je vois (résultats) dans R, j'obtiendrais une jolie table comme: Puis je transfère mon code à l'application brillante, avec l'option de téléchargement. Je n'ai pas trouvé de commande appropriée dans Rmarkdown pour noyer correctement ma table. J'ai essayé tous les paquets simples, comme XTABLE:

--- 
title: "All pages landscape" 
output: pdf_document 
classoption: landscape 
--- 



```{r results = "asis", echo=FALSE} 

x.side <- xtable:: xtable(ali1(), caption = "A sideways table",align=c("rp{2cm}p{0.7cm}p{0.7cm}p{1cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}p{0.5cm}")) 
print(x.side, floating = TRUE,type="latex") 
``` 

Sans utiliser align son look comme:

et align (j'ai essayé de montrer toutes les colonnes):

À côté de cela quand j'ai essayé d'utiliser le rotate.colnames=TRUE J'ai eu l'erreur:

Erreur: pandoc conversion de documents a échoué avec l'erreur 43

Mon but est d'avoir la table en une seule pièce! Je n'ai pas pu trouver une commande qui fixe la largeur de la colonne et casse les lignes pour avoir plusieurs lignes!

Toute idée est très appréciée!

Answer 1

Il existe une nouvelle possibilité de prendre une capture d'écran des widgets html pour une implémentation ultérieure, par exemple dans un document pdf (Vous devez télécharger pour ce package: webshot). La capture d'écran du datatable (package DT) est prise et utilisée comme image dans . Vous devriez l'essayer, la table est bien formatée.

Voici un exemple de code:

--- 
output: 
    pdf_document: 
    toc: yes 
--- 

```{r, fig.align='center', fig.pos='htb!', echo=FALSE, cache=FALSE, warning = FALSE, message = FALSE, tidy=TRUE} 
library(DT) 
library(webshot) 
datatable(mtcars[1:15,],rownames=FALSE, options = list(dom='t',ordering=F)) 
``` 

MISE À JOUR

J'ai essayé code complet que vous me avez donné à base de this shiny app example

App Brillant:

library(shiny) 
library(rmarkdown) 
library(knitr) 
shinyApp(
    ui = fluidPage(
    title = 'Download a PDF report', 
    sidebarLayout(
     sidebarPanel(
     helpText(), 
     selectInput('x', 'Build a regression model of mpg against:', 
        choices = names(mtcars)[-1]), 
     radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'), 
        inline = TRUE), 
     downloadButton('downloadReport') 
    ), 
     mainPanel(
     plotOutput('regPlot') 
    ) 
    ) 
), 
    server = function(input, output) { 

    data <- reactive({mtcars[ ,input$x, drop=FALSE]}) 

    regFormula <- reactive({ 
     as.formula(paste('mpg ~', input$x)) 
    }) 

    output$regPlot <- renderPlot({ 
     par(mar = c(4, 4, .1, .1)) 
     plot(regFormula(), data = mtcars, pch = 19) 
    }) 

    output$downloadReport <- downloadHandler(
     filename = function() { 
     paste('my-report', sep = '.', switch(
      input$format, PDF = 'pdf', HTML = 'html', Word = 'docx' 
     )) 
     }, 

     content = function(file) { 
     src <- normalizePath('report_file.Rmd') 

     # temporarily switch to the temp dir, in case you do not have write 
     # permission to the current working directory 
     owd <- setwd(tempdir()) 
     on.exit(setwd(owd)) 
     file.copy(src, 'report_file.Rmd', overwrite = TRUE) 

     library(rmarkdown) 
     out <- render('report_file.Rmd', switch(
      input$format, 
      PDF = pdf_document(), HTML = html_document(), Word = word_document() 
     )) 
     file.rename(out, file) 
     } 
    ) 

    } 
) 

report_file.Rmd :

Here is my regression model: 

```{r model, collapse=TRUE} 
options(digits = 4) 
fit <- lm(regFormula(), data = mtcars) 
b <- coef(fit) 
summary(fit) 
``` 

```{r, fig.align='center', fig.pos='htb!', echo=FALSE, cache=FALSE, warning = FALSE, message = FALSE, tidy=TRUE} 
library(DT) 
library(webshot) 
datatable(data(),rownames=FALSE, options = list(dom='t',ordering=F)) 
``` 

The fitting result is $mpg = `r b[1]` + `r b[2]``r input$x`$. 
Below is a scatter plot with the regression line. 

```{r plot, fig.height=5} 
par(mar = c(4, 4, 1, 1)) 
plot(regFormula(), data = mtcars, pch = 19, col = 'gray') 
abline(fit, col = 'red', lwd = 2) 
``` 

Et il fonctionne parfaitement me donner la sortie désirée pdf: