library(dplyr, warn.conflicts = FALSE) library(stringr) # some tibble actes <- tibble(cle_rsa = 1:100, cdccam = sample(c('EBLA003', 'NFKA015'), 100, replace = TRUE)) diags <- tibble(cle_rsa = 1:100, diag = sample(c('E66', 'E43'), 100, replace = TRUE)) rsa <- list(actes = actes, diags = diags) rm(actes, diags) # find rows from rsa actes tibble where cdccam is equal to NFKA015 library(dplyr, warn.conflicts = FALSE) # Créer une table a contenant les actes avec un code NFKA015 # Créer une table b contenant les diags avec un code E66 # alors, trouver les rsa avec un NFKA015 et un E66 (par jointure) library(dplyr, warn.conflicts = FALSE) # Créer une table contenant les actes avec un code NFKA015 a <- rsa$actes %>% filter(cdccam == 'NFKA015') # Créer une table contenant les diags avec un code E66 b <- rsa$diags %>% filter(diag == 'E66') # alors, trouver les rsa avec un NFKA015 et un E66 inner_join(a, b) test_function("filter", index = 1) test_function('inner_join') test_function("filter", index = 2) success_msg("On peut faire comme cela")