remove use of |> from R/as.R

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: REDCapExporter
 Title: Automated Construction of R Data Packages from REDCap Projects
-Version: 0.3.0
+Version: 0.3.1
 Authors@R: c(
     person(given = "Peter", family = "DeWitt",  email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6391-0795"))
     )

NEWS.md

@@ -1,3 +1,9 @@
+# Version 0.3.1
+
+## Bug fix
+* modify code in R/as.R to not use the `|>` operator so that the package code
+  has more backward compatibility.
+
 # Version 0.3.0
 
 * updated source code to address deprecated roxygen2 documentation tags

R/as.R

@@ -69,21 +69,31 @@ read_text <- function(x) {
     out <- utils::read.csv(text = x, colClasses = "character")
 
     if ("forms_export" %in% names(out)) {
-
-      f <-
-        strsplit(out[["forms"]], ",") |>
-        lapply(strsplit, ":") |>
-        lapply(lapply, function(x) stats::setNames(data.frame(x[2]), x[1])) |>
-        lapply(as.data.frame) |>
-        do.call(rbind, args = _)
+      # the following is great for R 4.2 or newer, need to make this work for older versions of R too.
+      #f <-
+      #  strsplit(out[["forms"]], ",") |>
+      #  lapply(strsplit, ":") |>
+      #  lapply(lapply, function(x) stats::setNames(data.frame(x[2]), x[1])) |>
+      #  lapply(as.data.frame) |>
+      #  do.call(rbind, args = _)
+      f <- strsplit(out[["forms"]], ",")
+      f <- lapply(f, strsplit, ":")
+      f <- lapply(f, lapply, function(x) stats::setNames(data.frame(x[2]), x[1]))
+      f <- lapply(f, as.data.frame)
+      f <- do.call(rbind, args = f)
       names(f) <- paste0("forms.", names(f))
 
-      fe <-
-        strsplit(out[["forms_export"]], ",") |>
-        lapply(strsplit, ":") |>
-        lapply(lapply, function(x) stats::setNames(data.frame(x[2]), x[1])) |>
-        lapply(as.data.frame) |>
-        do.call(rbind, args = _)
+      #fe <-
+      #  strsplit(out[["forms_export"]], ",") |>
+      #  lapply(strsplit, ":") |>
+      #  lapply(lapply, function(x) stats::setNames(data.frame(x[2]), x[1])) |>
+      #  lapply(as.data.frame) |>
+      #  do.call(rbind, args = _)
+      fe <- strsplit(out[["forms_export"]], ",")
+      fe <- lapply(fe, strsplit, ":")
+      fe <- lapply(fe, lapply, function(x) stats::setNames(data.frame(x[2]), x[1]))
+      fe <- lapply(fe, as.data.frame)
+      fe <- do.call(rbind, args = fe)
       names(fe) <- paste0("forms_export.", names(fe))
 
       out[["forms"]] <- NULL