if (beautier::is_on_ci()) {
pir_params <- create_test_pir_params()
# Returns FALSE
has_twinning(pir_params)
pir_params <- create_test_pir_params(
twinning_params = create_twinning_params()
)
# Returns TRUE
has_twinning(pir_params)
}
Run the code above in your browser using DataLab