R/convert_stimlist_to_array.R

In iholzleitner/facefuns: Convenience Functions Around 2D and 3D Face Shape Analysis

#' Convert webmorph stimlist to array (borrowed from webmorph::tems_to_array)
#'
#' @param stimlist Object of class webmorph_list
#'
#' @return Returns 3D array containing template files
#' @keywords internal
#' @author Lisa DeBruine
#'
convert_stimlist_to_array <- function(stimlist) {
  # check number of points
  n_pts <- lapply(stimlist, `[[`, "points") %>%
    sapply(ncol) %>%
    unique()

  if (length(n_pts) > 1) {
    stop("Each tem must have the same length")
  }

  sapply(stimlist, function(tem) {
    t(tem$points * c(1, -1))
  }) %>%
    array(dim = c(n_pts, 2, length(stimlist)),
          dimnames = list(NULL, c("X", "Y"), names(stimlist)))
}