R/prepare_data.R

In luciorq/ceRtificates: Generate Conference Certificates

#' Prepare Input data for certificates
#' @param participant_table `tibble`, `data.frame` or coercible object,
#'   containing atendees info
#' @export
prepare_data <- function(participant_table) {
  participant_lookup_df <- 1:nrow(participant_table) %>%
    purrr::map_df(~{
    i <- .x
    # Var init
    course <- participant_table$course[i]
    category <- participant_table$category[i]
    cert_hours <- participant_table$cert_hours[i]
    edition <- participant_table$edition[i]
    event_date <- participant_table$event_date[i]
    cert_name <- participant_table$participant_name[i]
    valid_email <- participant_table$valid_email[i]
    # format and normalize name for folders and paths
    p_name_path_wt_accent <- participant_table$participant_name[i] %>%
      sanitize_string_path()
    formated_course_name <- participant_table$course[i] %>%
      sanitize_string_path()

    path_to_cert <- fs::path("certs", fs::path_sanitize(p_name_path_wt_accent))
    if (!isTRUE(fs::dir_exists(path_to_cert))) {
      fs::dir_create(path_to_cert)
    }

    # unique certificate identifier
    id_string <- glue::glue("{p_name_path_wt_accent}-{formated_course_name}-{cert_hours}-{edition}")
    unique_id <- generate_hash(id_string, type = "long")
    id_string <- as.character(unique_id)

    lookup_df <- tibble::tibble(
      id = id_string,
      name = cert_name,
      email = valid_email,
      course = course,
      type = category,
      hours = cert_hours,
      edition = edition,
      date = event_date
    )
    return(lookup_df)
  })
  return(participant_lookup_df)
}