R/fill_descriptions.R

In RADS-project/analysr-git-test: Analysr

#' Fill descriptions
#'
#' A function to fill descriptions table when importing data
#' (typically those which are not in mandatory).
#'
#' @param hash a vector containing hash to associate
#' @param types a vector of strings (the name of the columns to import)
#' @param data the data frame you want to extract data from
#' @param n (optional) length of hash if already calculated
#' @param model An AnalysR env.
#' Default: `analysr_env`
fill_descriptions <- function(hash, types, data, n = length(hash),
                              model = analysr_env) {

    prepare_data <- dplyr::select(data, dplyr::all_of(types))
    prepare_data <- dplyr::mutate_all(prepare_data, as.character)
    prepare_data <- dplyr::mutate(prepare_data, hash = hash,
                    .before = types[1])



    result <- tidyr::pivot_longer(prepare_data,
                                  cols = dplyr::all_of(types),
                                  names_to = "type",
                                  values_to = "value")

    result <- na.omit(result)
    model$descriptions <- dplyr::bind_rows(model$descriptions,
                                result)
    model
}