#164 - Changes due to devtools::check() and devtools::document().

atorus-research · Feb 18, 2024 · 8a46862 · 8a46862
1 parent 4d7e1b7
commit 8a46862
Show file tree

Hide file tree

Showing 10 changed files with 82 additions and 24 deletions.
diff --git a/R/format.R b/R/format.R
@@ -229,18 +229,18 @@ xportr_format <- function(.df,
         # character variable formats should start with a $
         if (grepl("^\\$", format_sas) == FALSE) {
           message <- glue(
-            "(xportr::xportr_format)
-            {encode_vars(colnames(.df)[i])} is a character variable and
-            should have a `$` prefix."
+            "(xportr::xportr_format)",
+            " {encode_vars(colnames(.df)[i])} is a character variable",
+            " and should have a `$` prefix."
           )
           xportr_logger(message, type = "warn")
         }
         # character variable formats should have length <= 31 (excluding the $)
         if (nchar(gsub(".$", "", format_sas)) > 32) {
           message <- glue(
-            "(xportr::xportr_format)
-            Format for character variable {encode_vars(colnames(.df)[i])}
-            should have length <= 31 (excluding `$`)."
+            "(xportr::xportr_format)",
+            " Format for character variable {encode_vars(colnames(.df)[i])}",
+            " should have length <= 31 (excluding `$`)."
           )
           xportr_logger(message, type = "warn")
         }
@@ -251,18 +251,18 @@ xportr_format <- function(.df,
         # numeric variables should not start with a $
         if (grepl("^\\$", format_sas) == TRUE) {
           message <- glue(
-            "(xportr::xportr_format)
-            {encode_vars(colnames(.df)[i])} is a numeric variable
-            and should not have a `$` prefix."
+            "(xportr::xportr_format)",
+            " {encode_vars(colnames(.df)[i])} is a numeric variable and",
+            " should not have a `$` prefix."
           )
           xportr_logger(message, type = "warn")
         }
         # numeric variable formats should have length <= 32
         if (nchar(gsub(".$", "", format_sas)) > 32) {
           message <- glue(
-            "(xportr::xportr_format)
-            Format for numeric variable {encode_vars(colnames(.df)[i])}
-            should have length <= 32."
+            "(xportr::xportr_format)",
+            " Format for numeric variable {encode_vars(colnames(.df)[i])}",
+            " should have length <= 32."
           )
           xportr_logger(message, type = "warn")
         }
@@ -273,9 +273,9 @@ xportr_format <- function(.df,
           !(format_sas %in% toupper(expected_formats)) &&
             (stringr::str_detect(format_sas, pattern = format_regex) == FALSE)) {
         message <- glue(
-          "(xportr::xportr_format)
-          Check format {encode_vars(format_sas)} for variable {encode_vars(colnames(.df)[i])}
-          - is this correct?"
+          "(xportr::xportr_format)",
+          " Check format {encode_vars(format_sas)} for variable {encode_vars(colnames(.df)[i])}",
+          " - is this correct?"
         )
         xportr_logger(message, type = "message")
       }

diff --git a/man/metadata.Rd b/man/metadata.Rd
diff --git a/man/xportr-package.Rd b/man/xportr-package.Rd
diff --git a/man/xportr_df_label.Rd b/man/xportr_df_label.Rd
diff --git a/man/xportr_format.Rd b/man/xportr_format.Rd
diff --git a/man/xportr_label.Rd b/man/xportr_label.Rd
diff --git a/man/xportr_length.Rd b/man/xportr_length.Rd
diff --git a/man/xportr_order.Rd b/man/xportr_order.Rd
diff --git a/man/xportr_type.Rd b/man/xportr_type.Rd
diff --git a/man/xportr_write.Rd b/man/xportr_write.Rd