# NOT RUN {
# create you own CI adapter
ci_adapter_create_own <- function() {
result <- ci_adapter_create_base("Own")
class(result) <- c("ci_adapter_own", class(result))
return(result)
}
#' @export
ci_adapter_is_building.ci_adapter_own <- function(ci_adapter) {
# ... check ...
return(TRUE)
}
# }
Run the code above in your browser using DataLab