Data check subj 0017

[gabrielodom]

For subject 0017, we have an imputed visit the day before a positive UDS.

public.ctn0094data::all_drugs %>%
  filter(who == 17) %>%
  filter(when >= 40 & when <= 50)
# A tibble: 9 × 4
    who what           source  when
  <int> <fct>          <fct>  <dbl>
1    17 Heroin         TFB       40
2    17 Benzodiazepine UDSAB     45
3    17 Heroin         TFB       45
4    17 Methadone      UDSAB     45
5    17 Opioid         UDSAB     45
6    17 Thc            UDSAB     45
7    17 Thc            TFB       46
8    17 Methadone      UDSAB     49
9    17 Opioid         UDSAB     49

derived_visitImputed %>% filter(who == 17)
# A tibble: 25 × 3
     who  when visitImputed
   <int> <dbl> <chr>   
...
 6    17    35 Present     
 7    17    44 Present     
 8    17    49 Present