R/format_md_metadata.R

In tonyfujs/mdlibtoddh:

#' format_md_metadata
#'
#' Format specific variable to fit Microdata or DDH requirements
#'
#' @param metadata_in list: flattened list of metadata
#' @param date_fields character: variables to be processed as dates
#' @param text_fields character: variables to be processed as text
#'
#' @return list
#' @export
#'

format_md_metadata <- function(metadata_in,
                               date_fields = c("field_wbddh_modified_date",
                                               "field_wbddh_release_date"),
                               text_fields = c("body",
                                               "field_wbddh_citation_text",
                                               "field_wbddh_disclaimer",
                                               "field_wbddh_questionnaires",
                                               "field_wbddh_sampling_procedure",
                                               "field_wbddh_series_information",
                                               "field_wbddh_supervision")) {

  # Format title
  metadata_in[['title']]   <- paste(metadata_in[['field_wbddh_country']], metadata_in[['title']], sep = ' - ')

  # Format date fields
  metadata_in[date_fields] <- purrr::map(metadata_in[date_fields], timestamp_to_ddhdate)

  if(!is.null(metadata_in[['field_wbddh_version_date']])){
    metadata_in[['field_wbddh_version_date']] <- clean_date(metadata_in[['field_wbddh_version_date']])
  }

  # Format text fields
  is.notnull = function(x)!is.null(x)
  metadata_in[text_fields] <- purrr::map_if(metadata_in[text_fields], is.notnull, format_text)

  # Remove Null Values
  metadata_in[sapply(metadata_in, is.null)] <- NULL

  return(metadata_in)
}