R/map_gatherings.R

In rOpenGov/bibliographica: Bibliographic Data Analysis

#' @title Map Gathering Abbreviations and Full Names
#' @description Convert gatherings names between different formats.
#' @param x Gatherings vector
#' @param from Input terms to map (see \code{names(gatherings_table())} for options)
#' @param to Output terms to map (see \code{names(gatherings_table())} for options)
#' @return Mapped gatherings.
#' @author Leo Lahti \email{leo.lahti@@iki.fi}
#' @references See citation("bibliographica")
#' @export
#' @examples map_gatherings(c("8vo", "16mo"), from = "short", to = "long") 
#' @keywords utilities
map_gatherings <- function (x, from = "Standard", to = "Name") {

  from <- gsub("short", "Short", from)
  from <- gsub("long", "Name", from)

  to <- gsub("short", "Short", to)
  to <- gsub("long", "Name", to)
  
  xorig <- x
  tab <- gatherings_table()
  x <- as.character(x)
  y <- map(x, from = from, to = to, synonymes = tab)
  # If original input is factor, make sure that output
  # levels are in the same order

  # Capitalize
  y <- str_to_title(y)

  #if (is.factor(xorig) && length(unique(x)) == length(unique(y))) {
  if (is.factor(xorig)) {  
    xorig <- droplevels(xorig)
    xlevels <- as.character(levels(xorig))
    ylevels <- map(xlevels, from = from, to = to, synonymes = tab)    
    y <- factor(y, levels = str_to_title(unique(ylevels)))
    
  }

  if (any(na.omit(y) == "Na")) {
    y[y == "Na"] <- NA
    y <- droplevels(y)
  }
  
  y

}