library(dplyr, warn.conflicts = FALSE) # 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 # Afficher la table actes des rsa # Filtrer les actes avec un code NFKA015 library(dplyr, warn.conflicts = FALSE) print(rsa$actes) # Filtrer les actes avec un code NFKA015 filter(rsa$actes, cdccam == 'NFKA015') test_function('library') test_function('print') test_function("filter") success_msg("On peut faire comme cela !")