#33 recist: add TRGRPID

pharmaverse · Aug 29, 2023 · 228a48c · 228a48c
1 parent 073d232
commit 228a48c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/data-raw/tr_onco_recist.R b/data-raw/tr_onco_recist.R
@@ -172,6 +172,14 @@ suppress_warning(
 
 tr <- bind_rows(tr, tr_radio1, tr_radio2) %>%
   select(-diff_percent) %>%
+  mutate(
+    TRGRPID = if_else(
+      substr(TRLINKID, 1, 1) == "T",
+      "TARGET",
+      "NON-TARGET"
+    ),
+    .before = TRLINKID
+  ) %>%
   mutate(
     TREVAL = if_else(is.na(TREVALID), "INVESTIGATOR", "INDEPENDENT ASSESSOR"),
     .before = TREVALID,

diff --git a/data/tr_onco_recist.rda b/data/tr_onco_recist.rda