1 - qpdf(): Split, Combine and Compress PDF Files

https://cran.r-project.org/web/packages/qpdf/qpdf.pdf

#install.packages("qpdf")
#library(qpdf)
qpdf::pdf_compress(                             # compresse le pdf
  input = "data/exemple.pdf",                   # fichier à traiter
  output = "figures/qpdf/exemple-compress.pdf") # fichier obtenu
## [1] "/Users/hermann/Documents/GitHub/R-pour-archeologues/figures/qpdf/exemple-compress.pdf"
qpdf::pdf_subset(                       # échantillonne le pdf
  input = "data/exemple.pdf",           # fichier à traiter
  pages = c(1:4),                       # choisir un ensemble de pages
  #pages = c(1,2,3,4),                  # vs choisir des pages individuellement
  output = "figures/qpdf/exemple-subset.pdf")
## [1] "/Users/hermann/Documents/GitHub/R-pour-archeologues/figures/qpdf/exemple-subset.pdf"
qpdf::pdf_split(                               # sépare toutes les pages
  input = "figures/qpdf/exemple-subset.pdf",   # fichier à traiter
  output = "figures/qpdf/page")                # préfixe   
## [1] "figures/qpdf/page_0001.pdf" "figures/qpdf/page_0002.pdf"
## [3] "figures/qpdf/page_0003.pdf" "figures/qpdf/page_0004.pdf"
qpdf::pdf_combine(                              # combine deux pdf
  input = c("data/exemple.pdf",                 # fichiers à traiter
            "figures/qpdf/exemple-subset.pdf"),
  output = "figures/qpdf/exemple-combined.pdf") # fichier obtenu
## [1] "/Users/hermann/Documents/GitHub/R-pour-archeologues/figures/qpdf/exemple-combined.pdf"
qpdf::pdf_rotate_pages(       # change l'orientation des pages
  input = "data/exemple.pdf", # fichier à traiter
  pages = c(2:3),             # choisir un ensemble de pages
  #pages = c(2,3),            # vs choisir des pages individuellement
  angle = 90,                 # choisir l'angle de rotation
  relative = FALSE,           # si TRUE, les pages tournent par rapport à l'orientation actuelle
                              # si FALSE, la rotation se fait sur des valeurs absolues: 0 = portrait, 
                              # 90 = landscape rotation à 90 degrés dans le sens des aiguilles
  output = "figures/qpdf/exemple-rotated.pdf" # fichier obtenu
  )
## [1] "/Users/hermann/Documents/GitHub/R-pour-archeologues/figures/qpdf/exemple-rotated.pdf"
qpdf::pdf_length(             # indique le nombre de pages dans un pdf
  input = "data/exemple.pdf"  # fichier à traiter
  )
## [1] 24

2 - pals() and scales(): A comprehensive collection of color palettes, colormaps, and tools to evaluate them

https://cran.r-project.org/web/packages/pals/pals.pdf https://kwstat.github.io/pals/

#install.packages("pals")
#install.packages("scales")
#library(pals)
#library(scales)
pals::pal.bands(pals::coolwarm,
                pals::parula, 
                pals::ocean.phase,
                pals::ocean.matter, 
                pals::ocean.oxy,
                pals::ocean.deep,
                pals::ocean.haline,
                pals::ocean.algae, 
                pals::ocean.solar, 
                pals::ocean.thermal, 
                pals::ocean.matter, 
                pals::ocean.oxy, 
                pals::magma,
                pals::inferno,
                pals::plasma,
                pals::plasma, 
                pals::magma,
                pals::inferno, 
                pals::viridis, 
                pals::cividis)

scales::show_col(pals::viridis(24))

#scales::show_col(pals::magma(13))
#scales::show_col(pals::inferno(16))
#scales::show_col(pals::plasma(6))
#scales::show_col(pals::cubicl(6))
#scales::show_col(pals::parula(9))
#show_col(pals::ocean.haline(20))

3 - :

#install.packages("readtext")
#install.packages("quanteda")
#library(readtext)
#library(quanteda)
#kononenko <- readtext::readtext("data/kononenko2007.pdf")
#x <- corpus(kononenko, text_field = "text")
#summary(x)
#texts(x)