R/clean_unification.R

In shahryareiv/singleverbr: Express Your R Shorter

#' Title
#'
#' @param the.data
#'
#' @return
#' @export
#'
#' @examples
sv_meta_guess_messy <- function(the.data){

  the.meta <- sv_meta_spss_variables.df(the.data)

  the.data
}


#' compares two data.frames returns the variables are different between them
#'
#' @param the.data.1
#' @param the.data.2
#'
#' @return
#' @export
#'
#' @examples
sv_meta_compare <- function(the.data.1,the.data.2){

  the.meta.1 <- sv_meta_spss_variables.df(the.data.1)
  the.meta.2 <- sv_meta_spss_variables.df(the.data.2)

  the.compare <- dplyr::anti_join(the.meta.1,the.meta.2,by='the.variable')

  the.compare

}


#' Title
#'
#' @param the.data
#' @param the.type
#' @param the.mains.and.alternatives.ls
#'
#' @return
#' @export
#'
#' @examples
sv_meta_harmonize <- function(the.data,the.type=c('label','value.labels','value.values'), the.mains.and.alternatives.ls){

  the.meta <- sv_meta_spss_variables.df(the.data)

  lapply(the.mains.and.alternatives.ls, function(the.pair){

    the.main <- the.pair[[1]]
    the.alternatives <- the.pair[-1]

    lapply(the.alternatives, function(the.alternative){

      switch(
        the.type,
        label = {1

        },
        value.labels = {2

        },
        value.values = {3

          # the.data[] <-

        }
      )

    })



  }
  )

  the.data

}


#' Title
#'
#' @param the.data
#' @param the.variable
#' @param the.value.label.src
#' @param the.value.label.des
#'
#' @return
#' @export
#'
#' @examples
sv_meta_change_value_label <- function(the.data, the.variable, the.value.label.src, the.value.label.des){


  # the.data[,attr(the.data$the.variable, which='label')='']
  attr(the.data[the.variable][[1]], which='labels')#
# the.data[the.variable]



}