if (FALSE) { # requireNamespace("NBDCtoolsData", quietly = TRUE)
data <- tibble::tribble(
~participant_id, ~session_id,
"sub-001", "ses-001",
"sub-001", "ses-002",
"sub-002", "ses-001",
"sub-002", "ses-002",
"sub-003", "ses-001",
"sub-003", "ses-002"
)
# filter using a vector of ID/events
filter_id_events(
data,
id_events = c("sub-001_ses-001", "sub-003_ses-002")
)
# filter using a dataframe with participant_id and session_id
data_filter <- tibble::tibble(
participant_id = c("sub-001", "sub-003"),
session_id = c("ses-001", "ses-002")
)
filter_id_events(
data,
id_events = data_filter
)
# revert filter
filter_id_events(
data,
id_events = c("sub-001_ses-001", "sub-003_ses-002"),
revert = TRUE
)
}
Run the code above in your browser using DataLab