Muchas veces utilizamos programas variados para tratar con los archivos pdf. Aquí muestro una alternativa útil a la hora de extraer páginas de algunos pdfs a partir de rangos de páginas.

Antes de empezar creamos el siguiente directorio de trabajo:

setwd("C:/Users/bryan/Downloads") # en mi caso seleccioné la carpeta descargas que es donde 
                                  # se encuentra el pdf a usar

Primero cargamos los paquetes necesarios

library(tidyverse) # permite utilizar la función lst.
library(qpdf) # es la encargada de realizar operaciones en pdfs.

Luego creamos una lista que contenga los nombres de los nuevos pdfs y los rangos de página que serán extraidos del pdf base:

lista <- lst(c6=1:3,c7=4,c8=5,d3=6:30,d8=31,f6=32,juicio=33)

Luego a partir de los nombres de los elementos de la lista anteriormente creada generamos un vector que contenga los nombres con la extensión .pdf.

nombres <- paste0(names(lista), ".pdf")
print(nombres)
## [1] "c6.pdf"     "c7.pdf"     "c8.pdf"     "d3.pdf"     "d8.pdf"    
## [6] "f6.pdf"     "juicio.pdf"

Finalmente creamos un bucle que permita crear pdfs bajo los nombres creados y sus rangos respectivos.

for (i in 1:length(lista)) {
  qpdf::pdf_subset("informe de prueba.pdf",
                   pages = lista[[i]], 
                   output = nombres[i])
  }

Estos pdfs se guardan en el directorio de trabajo previamente creado:

Figura 1: Pdfs creados en el directorio de trabajo