feat: improve check_recist()

[DanChaltiel]

  db = grstat_example(N = 200)
  #mockup: one site per date (db$recist is 1 row per date)
  rc = db$recist |> 
    mutate(
      RCTLSITE = "SITE",
      RCTLDIAM = rctlsum,
      RCNTLRES = rcntlresp,
    )
    
  # |> 
    # .apply_recist_mapping(mapping=gr_recist_mapping())
  a = check_recist(rc)
  recist_report_html(a, output_file=tempfile(fileext=".html"), output_dir=tempdir(), open=TRUE)
  a %>% tail(1) %>% unlist