# NOT RUN {
ci_adapter <- ci_adapter_create_base("Own") # create your custom adapter
class(ci_adapter) <- c("ci_adapter_own", class(ci_adapter))
# register it
rsuite_register_ci_adapter(ci_adapter)
# unregister it
rsuite_unregister_ci_adapter("Own")
# }
Run the code above in your browser using DataLab