R/anidar-horizontes.R

In INTA-Suelos/SISINTAR: Lee y Manipula Datos de Suelo de SISINTA

#' Anida datos de horizontes
#'
#' La función \code{anidar_horizontes} permite organizar la información de uno
#' o más perfiles y sus horizontes en un data.frame. Cada fila se corresponde con
#' un perfil y los datos de los horizontes se guardan en una columna de data.frames
#' llamada `horizonte`.
#' `desanidar_horizontes` realiza la operación contraria.
#'
#' @param perfiles un data.frame con perfiles (salida de [get_perfiles()])
#'
#' @returns
#' Un data.frame anidado. El resultado tiene una fila por cada perfil y una
#' columna por cada dato del perfil más una columna llamada "horizontes" que
#' contiene un data.frame con los horizontes de cada perfil.
#'
#' @examples
#'
#' anidados <- anidar_horizontes(perfiles)
#'
#' # igual a perfiles salvo posiblemente por el orden de las columnas
#' desanidados <- desanidar_horizontes(anidados)
#'
#' @export
anidar_horizontes <- function(perfiles) {

  vars <- c("perfil_id", get_sitios_columns(perfiles))

  perfiles <- data.table::as.data.table(perfiles)
  perfiles <- perfiles[, list(horizontes = list(as.data.frame(.SD))), keyby = c(vars)]
  data.table::setDF(perfiles)
  perfiles
}

#' @export
#' @rdname anidar_horizontes
desanidar_horizontes <- function(perfiles) {
  horizontes <- NULL
  vars <- colnames(perfiles)[colnames(perfiles) != "horizontes"]
  perfiles <- data.table::as.data.table(perfiles)[, horizontes[[1]], by  = vars]
  data.table::setDF(perfiles)
}