tests/testthat/helper-attributes.R

clean_attributes <- function() {
    if (nrow(emr_track.attr.export())) {
        apply(emr_track.attr.export(), 1, function(x) {
            emr_track.attr.rm(x[1], x[2])
        })
    }
}

Try the naryn package in your browser

Any scripts or data that you put into this service are public.

naryn documentation built on Sept. 27, 2024, 5:07 p.m.