Implement recist sanity check

[DanChaltiel]

RECIST 1.1 Documentation

• Princeps article: Eisenhauer 2008 https://ctep.cancer.gov/protocoldevelopment/docs/recist_guideline.pdf
• PDF from CEPD cohort (Fr): http://www.cepd.fr/CUSTOM/RECIST_1.1.pdf
• Powerpoint from Pneumology Society (Fr): https://splf.fr/wp-content/uploads/2017/10/Lederlin-M_RECIST-Un-petit-cours-pratique.pdf

RECIST Calculators:

• https://www.radrap.ch/calculateurs
• https://radcalculators.org/recist-1-1-calculator/

Other resources:

• calcul SAS du recist 1.1 target lesions sur données ADAM (PDF): lien
• https://www.lexjansen.com/pharmasug-cn/2023/SA/Pharmasug-China-2023-SA142.pdf
• https://cran.r-project.org/web/packages/admiralonco/vignettes/adtr.html
• https://github.com/luoj2/mlRECIST

Off-topic: Compute the Best Overall Response: https://www.bioinfo-scrounger.com/archives/bor_recist/. See also https://github.com/kaigu1990/stabiot

Code:

rc %>% 
  mutate(sum_bl = unify(RCTLSUM[CRFINSNO==1]),
         .by = SUBJID) %>% 
  mutate(RCTLRESP2 = case_when(
           RCTLSUM/sum_bl == 0 ~ "1-CR",
           RCTLSUM/sum_bl < 0.7 ~ "2-PR",
           RCTLSUM/sum_bl > 1.2 ~ "4-PD",
           RCTLSUM/sum_bl < 2 ~ "3-SD",
           
         )) %>%  
  distinct(SUBJID, RCDT, RCTLRESP, RCTLRESP2) %>% 
  crosstable(RCTLRESP~RCTLRESP2, label=FALSE) %>% af

rc$RCTLSITE %>% table #for lymph nodes

[DanChaltiel]

Migrated to grstat issue 25