El problema

Me interesa leer los metadatos de todos los archivos de audio en una carpeta. En este caso son audios de entrevistas que están en tres formatos diferente, .mp3, .m4a y .wav. Después de leerlos querría cargar esa información de manera sistemática en un data frame que tendrá una fila por cada archivo y una columna para el nombre del archivo, otra para la duración y una tercera para la fecha de creación.

Dentro de la paquetería de R no encontré ningúna librería que haga el trabajo. Sin embargo hay un programa que funciona en Linux (también en otras plataformas, aunque no probé) y que se encarga de leer metadatos de archivos de medios. Se llama mediainfo y tiene la opción de generar su output en formato XML, es decir, un formato que podría leer desde R.¹

system y stdout

R tiene la función system, que se encarga de conectar a la consola de R con la consola de nuestro sistema operativo. Normalmente la usamos para pasar directamente desde un script instrucciones a la consola (crear o borrar un archivo). Sin embargo tiene otra característica interesante, también puede ejecutar un programa en BASH y capturar la salida de ese programa como un objeto de R. Esa “salida” está en un formato conocido llamado Standar Output o stdout. Una de las maravillas de UNIX.

La solución

Los nombres de archivo están censurados por cuestiones de privacidad.

library(rvest)
library(dplyr) # para mutate
library(lubridate) #Para manipular fechas.

# Lista con todos los archivos de audio
archivos <- list.files("~/audio_test", "*.mp3|*.m4a|*.wav", 
                       full.names = TRUE)

# Collapso a lista a una cadena de caracteres. 
# mediainfo acepta múltiples nombres de archivo separados por un espacio

archivos <- paste(archivos, collapse = " ")

# Leo los metadatos con una llamada externa a mediainfo, le especificio que la salida sea en XML
metadatos_crudos <- system(paste("mediainfo --output=XML", archivos), 
                           intern = TRUE) #R captura el stdout como un vector de cadenas de caracteres.

metadatos <- paste0(metadatos_crudos, collapse = "") %>%  #Colapso el vector de caracteres a una sola cadena. 
  read_html()  #Legible por read_html

# Navego las etiquetas XML y capturo la información que me interesa. 
# read_html::xml_structure() imprime la lista de etiquetas. 

audios <- data.frame(

   archivo = html_nodes(metadatos, "media") %>% 
     html_attr("ref"),
   
   formato = html_nodes(metadatos, xpath = '//*[@type="General"]') %>%  
     html_nodes("format") %>% 
     html_text(),
   
    duracion = html_nodes(metadatos, xpath = '//*[@type="General"]') %>% 
     html_nodes("duration") %>% 
     html_text() %>% 
     as.numeric(), #En segundos
   
   fecha = html_nodes(metadatos, "file_modified_date") %>%
     html_text() %>% 
     ymd_hms() %>% 
     date(), #Sale la fecha limpia
   
   stringsAsFactors = FALSE
   )

audios <- audios %>% 
  mutate(archivo = "Información privada")

knitr::kable(audios, caption = "Audios de entrevistas")