brapi_status <- function(code = 100, message = "No matching records found.", status = NULL){
if(code == 100){
pagination = list(
pageSize = 0,
currentPage = 0,
totalCount = 0,
totalPages = 0
)
}
if (is.null(status)) {
status =
list(
list(
code = code,
message = message
)
)
} else {
status[[length(status) + 1]] <- list(code = code, message = message)
}
list(pagination = pagination, status = status, datafiles = list())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.