documentation errors

R/crosswalk.R

@@ -32,16 +32,12 @@
 #'   save_to_rds = FALSE)
 #' 
 #' ## Compare with documentation:
-#' documented_surveys <- create_surveys_metadata(example_surveys)
-#' 
 #' documented_surveys <- metadata_surveys_create(example_surveys)
 #' documented_surveys <- documented_surveys[
-#'  documented_surveys$var_name_orig %in% c( "rowid", "isocntry", "w1", "qd3_4",
+#' documented_surveys$var_name_orig %in% c( "rowid", "isocntry", "w1", "qd3_4",
 #'                                           "qd3_8" , "qd7.4", "qd7.8", "qd6.4", "qd6.8"),
 #'                                           ]
 #' crosswalk_table    <- crosswalk_table_create ( metadata = documented_surveys )
-#' 
-#'                   crosswalk_table = crosswalk_table)
 #' }
 #' @importFrom dplyr relocate
 #' @export

R/harmonize_surveys.R

@@ -301,15 +301,15 @@ harmonize_surveys <- function(survey_list, .f, status_message = FALSE) {
 #' @rdname harmonize_surveys
 #' @details The earlier form \code{harmonize_waves} is deprecated. 
 #' The function is currently called \code{\link{harmonize_waves}}.
-#' @param waves A list of surveys. Deprecated with \code{harmonize_waves}.
+#' @param waves A list of surveys. Deprecated.
 #' @export
 
 
 harmonize_waves <- function(waves, .f, status_message = FALSE) {
   .Deprecated("harmonize_waves ",
               msg = "harmonize_waves() is deprecated, use harmonize_surveys() instead", 
               old = "harmonize_waves")
-  harmonize_surveys(suvey_list = waves, 
+  harmonize_surveys(survey_list = waves, 
                 .f = .f, 
                 status_message = status_message )
 }

R/merge_surveys.R

@@ -97,9 +97,10 @@ merge_surveys <- function(survey_list, var_harmonization) {
 
 #' @title merge_waves
 #' @rdname merge_surveys
+#' @param waves Deprecated.
 #' @export
 merge_waves <- function(waves, var_harmonization) {
-  merge_surveys(suvey_list = waves, 
+  merge_surveys(survey_list = waves, 
                 var_harmonization = var_harmonization)
 }