Package 'ANECAtools'

Extraer autores

Description

Extraer autores

Usage

extraer_autores(aut.text = NULL, aut.sep = "; ", mayus = TRUE)

Arguments

aut.text	Cadena de texto conteniendo el nombre de uno o varios autores
aut.sep	Caracter(es) que separa cada autor en aut.text
mayus	¿Poner todos los caracteres en mayúsculas (TRUE) o dejarlos tal cual (FALSE)?

Value

Vector con los nombres de los autores

Examples

## Not run: 
extraer_autores("Quintero, Elena; Rodriguez-Sanchez, Francisco; Jordano, Pedro")

## End(Not run)

---

Formatear fecha

Description

Formatear fecha en el formato requerido por la ANECA (dd/mm/yyyy).

Usage

fecha_formatear(fecha = NULL)

Arguments

fecha

Fechas en formato "yyyy-mm-dd"

Value

Fechas en formato "dd/mm/yyyy"

Examples

fechas <- c("2024-02-28", "2023-12-25")
fecha_formatear(fechas)

---

Introducir campos de cualquier data frame

Description

Esta función sirve para introducir información de los distintos campos requeridos en cualquier sección de la aplicación ANECA (proyectos, congresos, etc). La función simplemente lee el data frame y va pegando cada campo al portapapeles. Para introducir publicaciones, debe utilizarse introducir_publicaciones(). Para rellenar campos con múltiples items (p. ej. autores), puede utilizarse la función pegar_autores().

Usage

introducir_campos(df = NULL, col_info = 1, pausa = 4)

Arguments

df	Data frame con distintos campos a introducir en la aplicación de la ANECA. Este data frame puede leerse en R p. ej. a partir de un fichero CSV (usando readr::read_csv()) o un fichero Excel (usando readxl::read_excel()). Aunque no es estrictamente necesario, idealmente el data frame debe contener los mismos campos (y en el mismo orden) requeridos por la aplicación de la ANECA. El nombre de las columnas puede ser diferente al de la aplicación.
col_info	Nombre o número de la columna que contiene la información principal sobre el item (p. ej. título de la charla). Se utilizará únicamente para preguntar si se quiere procesar dicho item o saltarlo.
pausa	Tiempo (en segundos) que dura cada campo en el portapapeles (para que dé tiempo a pegar cada uno en la aplicación de la ANECA)

Value

Esta función va copiando los distintos campos al portapapeles para poder pegarlos en la aplicación de la ANECA.

---

Introducir publicaciones

Description

Introducir publicaciones

Usage

introducir_publicaciones(bibfile = NULL, mayus = TRUE, pausa = 4)

Arguments

bibfile	Ruta al archivo BibTeX (caracter)
mayus	¿Poner todos los caracteres en mayúsculas (TRUE) o dejarlos tal cual (FALSE)?
pausa	Tiempo (en segundos) que dura el nombre de cada autor en el portapapeles (para que dé tiempo a pegar cada uno en la aplicación de la ANECA)

Value

Esta función va copiando los distintos campos (autores, título, revista, etc) al portapapeles para poder pegarlos en la aplicación de la ANECA.

See Also

extraer_autores() pegar_autores()

Examples

## Not run: 
bibfile <- system.file("extdata", "articulo.bib", package = "ANECAtools")
introducir_publicaciones(bibfile)

## End(Not run)

---

Combinar varios archivos en un único archivo PDF

Description

Combinar varios archivos en un único archivo PDF

Usage

pdf_combinar(pdf.in = NULL, pdf.out = "pdfs_agrupados.pdf")

Arguments

pdf.in	Archivos PDF a combinar
pdf.out	Nombre del archivo PDF resultante

Value

Archivo PDF en disco

Examples

## Not run: 
pdfs <- list.files("PDF_SUBSET", full.names = TRUE)
pdf_combinar(pdfs)

## End(Not run)

---

Comprimir archivo PDF

Description

Comprimir archivo PDF

Usage

pdf_comprimir(
  pdf.in = NULL,
  pdf.out = NULL,
  calidad = c("baja", "media", "alta"),
  ...
)

Arguments

pdf.in	Nombre del archivo PDF a comprimir. Si no se especifica, aparecerá un menú interactivo para elegir el archivo en disco.
pdf.out	Opcional. Nombre del archivo PDF resultante. Si no se especifica, se añadirá el sufijo "_comprimido" al nombre original del PDF.
calidad	"baja", "media" o "alta" según el grado de compresión deseado
...	(opcional) Argumentos extra para tools::compactPDF()

Value

Fichero PDF comprimido en disco

---

Extraer páginas concretas de archivos PDF

Description

Extraer páginas concretas de archivos PDF

Usage

pdf_extraer_pags(
  pdf.in = NULL,
  pags = c("ini", "fin"),
  out.dir = "PDF_SUBSET",
  pdf.out = NULL
)

Arguments

pdf.in	Nombre del archivo (o archivos) pdf cuyas páginas se desean extraer
pags	Vector numérico especificando las páginas a extraer. Alternativamente, puede indicarse "ini" y/o "fin" para extraer las páginas inicial y final, respectivamente (ver ejemplos).
out.dir	Directorio donde guardar el archivo pdf resultante
pdf.out	Nombre del fichero pdf resultante. Si no se especifica, se utilizará el nombre del archivo original añadiéndole el número de las páginas extraídas.

Value

Fichero pdf en disco. Además, la función devuelve las rutas a los archivos extraidos, por lo que es fácil ejecutar a continuación pdf_combinar().

Examples

## Not run: 
pdf_extraer_pags("articulo.pdf")  # extrae página inicial y final por defecto
pdf_extraer_pags("articulo.pdf", pags = "ini")  # extrae solo página inicial
pdf_extraer_pags("articulo.pdf", pags = "fin")  # extrae solo página final
pdf_extraer_pags("articulo.pdf", pags = c(1, 2, 8))  # extrae páginas 1, 2 y 8

## Extraer página inicial y final de muchos pdf a la vez
archivos <- list.files("carpetapdfs", full.names = TRUE)
pdf_extraer_pags(archivos)

## End(Not run)

---

Pegar autores

Description

Dado un vector de caracteres, esta función copiará cada item al portapapeles secuencialmente. Pude utilizarse para rellenar cualquier campo con múltiples items, aparte de los autores.

Usage

pegar_autores(autores = NULL, pausa = 3)

Arguments

autores	Vector con los nombres de los autores
pausa	Tiempo (en segundos) que dura el nombre de cada autor en el portapapeles (para que dé tiempo a pegar cada uno en la aplicación de la ANECA)

Value

Los autores son copiados al portapapeles secuencialmente

Examples

## Not run: 
autores <- extraer_autores("Quintero, Elena; Rodriguez-Sanchez, Francisco; Jordano, Pedro")
pegar_autores(autores)

## End(Not run)

---

Cambiar mayúsculas de un texto

Description

Cambiar mayúsculas de un texto

Usage

texto_mayus(
  texto = NULL,
  mayus = c("mayus", "minus", "titulo", "frase"),
  locale = "en"
)

Arguments

texto	Texto a modificar. Si no se aporta, se leerá directamente el contenido del portapapeles.
mayus	Para cambiar todo el texto a mayúsculas, usar "mayus". Para cambiar todo el texto a minúsculas, usar "minus". Para poner en mayúscula sólo la primera letra de cada palabra, usar "titulo". Para poner mayúscula sólo las primeras palabras de cada frase, usar "frase".
locale	Idioma del texto (inglés por defecto, locale = "en"). Para español, usar locale = "es". Véase stringr::str_to_sentence().

Value

El texto reformateado será copiado automáticamente al portapapeles además de mostrarse en la consola de R.

---

Unir líneas de texto en una sola

Description

Esta función une varias líneas de texto en una sola. Puede ser útil, por ejemplo, para unir texto (títulos, autores, etc) copiado de archivos pdf.

Usage

texto_unir_lineas(texto = NULL, mayus = NULL, locale = "en")

Arguments

texto	Texto a unir en una sola línea. Si no se aporta, se leerá directamente el contenido del portapapeles.
mayus	Para dejar el texto tal cual, sin modificar las mayúsculas, dejar mayus = NULL. Para cambiar todo el texto a mayúsculas, usar "mayus". Para cambiar todo el texto a minúsculas, usar "minus". Para poner en mayúscula sólo la primera letra de cada palabra, usar "titulo". Para poner mayúscula sólo las primeras palabras de cada frase, usar "frase". Véase texto_mayus().
locale	Idioma del texto (inglés por defecto, locale = "en"). Para español, usar locale = "es". Véase stringr::str_to_sentence().

Value

El texto reformateado será copiado automáticamente al portapapeles además de mostrarse en la consola de R.

---