#' Disqus Category API
#' @param ... ...
#' @export
category <- function(...) {
raw <- fromJSON(listTemplate(ressource = "categories", ...))
class(raw) <- c("dq_category")
return(raw$response)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.