#' active tasks
#'
#' @export
#' @template all
#' @template return
#' @examples \dontrun{
#' # Create a CouchDB connection client
#' user <- Sys.getenv("COUCHDB_TEST_USER")
#' pwd <- Sys.getenv("COUCHDB_TEST_PWD")
#' (x <- Cushion$new(user=user, pwd=pwd))
#'
#' active_tasks(x)
#' active_tasks(x, as = 'json')
#' }
active_tasks <- function(cushion, as = 'list', ...) {
check_cushion(cushion)
sofa_GET(file.path(cushion$make_url(), '_active_tasks'),
as = as, headers = cushion$get_headers(),
auth = cushion$get_auth(), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.