adjust to tidyselect 1.1.0

pmayd · pmayd · commit 58e9825bb6f9 · 2025-05-04T22:28:08.000+02:00
diff --git a/a4d.Rproj b/a4d.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 8e02b934-92ac-47d4-9d0f-16ea83cd14ae
 
 RestoreWorkspace: No
 SaveWorkspace: No
diff --git a/scripts/R/run_script_5_create_metadata_table.R b/scripts/R/run_script_5_create_metadata_table.R
@@ -43,7 +43,7 @@ main <- function() {
 
     all_data <- all_data %>%
         dplyr::mutate(
-            complete = dplyr::if_all(subdirs, identity),
+            complete = dplyr::if_all(dplyr::all_of(subdirs), identity),
             timestamp = current_timestamp
         )
 

Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ main <- function() {`
`43`	`43`
`44`	`44`	`all_data <- all_data %>%`
`45`	`45`	`dplyr::mutate(`
`46`		`- complete = dplyr::if_all(subdirs, identity),`
	`46`	`+ complete = dplyr::if_all(dplyr::all_of(subdirs), identity),`
`47`	`47`	`timestamp = current_timestamp`
`48`	`48`	`)`
`49`	`49`