lapply()

r-multiverse · Mar 5, 2024 · 6addffa · 6addffa
1 parent 2c39169
commit 6addffa
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/record_versions.R b/R/record_versions.R
@@ -58,9 +58,7 @@ get_current_versions <- function(
 read_versions_previous <- function(manifest) {
   out <- jsonlite::read_json(path = manifest)
   out <- do.call(what = vctrs::vec_rbind, args = out)
-  for (field in colnames(out)) {
-    out[[field]] <- as.character(out[[field]])
-  }
+  out <- lapply(out, as.character)
   if (is.null(out$version_highest)) {
     out$version_highest <- out$version_current
   }