pluck() -> with() as suggested by @klmr

bedapub · Mar 13, 2024 · a131cbd · a131cbd
1 parent 8af6762
commit a131cbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/vignettes/osat.Rmd b/vignettes/osat.Rmd
@@ -107,7 +107,7 @@ OSAT::getLayout(gc) |>
   left_join(OSAT::get.experiment.setup(g_setup)) |>
   data.table::data.table() |>
   osat_score("plates", c("SampleType", "Race", "AgeGrp")) |>
-  pluck("score")
+  with(score)
 
 # score using OSAT
 g_setup@metadata$optValue |> tail(1)