# NOT RUN {
## Suggested setup for other packages trying to register visual docs for plumber
.onLoad <- function(...) {
plumber_register_ui <- function() {
tryCatch({
do.call(plumber::register_ui, plumber_docs())
}, error = function(e) {
message("Error registering swagger docs. Error: ", e)
})
}
setHook(packageEvent("plumber", "onLoad"), function(...) {
plumber_register_ui()
})
if ("plumber" %in% loadedNamespaces()) {
plumber_register_ui()
}
}
# }
Run the code above in your browser using DataLab