replace (x |> f1() |> f2())$var with |> pluck("var") (nicer syntax)

bedapub · Mar 13, 2024 · 1e9e541 · 1e9e541
1 parent 9505310
commit 1e9e541
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/vignettes/osat.Rmd b/vignettes/osat.Rmd
@@ -103,10 +103,11 @@ OSAT::get.experiment.setup(g_setup) |>
 # Compare scores with various implementations
 Compare OSAT score generated using designit.
 ```{r}
-(OSAT::getLayout(gc) |>
+OSAT::getLayout(gc) |>
   left_join(OSAT::get.experiment.setup(g_setup)) |>
   data.table::data.table() |>
-  osat_score("plates", c("SampleType", "Race", "AgeGrp")))$score
+  osat_score("plates", c("SampleType", "Race", "AgeGrp")) |>
+  pluck("score")
 
 # score using OSAT
 g_setup@metadata$optValue |> tail(1)