R/export_current_metadata.R

In antaldaniel/surveyreader: Data cleaning and integration for survey files

#' Export current metadata
#'
#' The function exports the currently detected GESIS SPSS labels,
#' their SPSS variable names, the new variable names, and the suggested
#' function in this package that can recode or rescale them to the desired
#' R format.
#' @param filename A filename with relative path where you want to export the
#' metadata.
#' @importFrom readr write_excel_csv
#' @examples
#' \dontrun{
#'   export_current_metadata ("data-raw/metadata.csv")
#' }
#' @export

export_current_metadata <- function ( filename ) {

  metadata <- metadata
  readr::write_excel_csv(metadata,
                         filename)

  message ( "Currently this function is not shared.")
  message ( "The function corrects minor errors and changes the
             ")

}