Nothing
#' Gets details (subcommittees + membership) for a committee by id.
#'
#' @import httr
#' @template cg
#' @param id committee id (eg. JSPR)
#' @return Committee details including subcommittees and all members.
#' @export
#' @examples \dontrun{
#' cg_getcommittees(id = 'JSPR')
#' }
cg_getcommittees <- function(id = NULL,
key=getOption("SunlightLabsKey", stop("need an API key for Sunlight Labs")),
callopts = list())
{
url = "http://services.sunlightlabs.com/api/committees.get.json"
args <- suncompact(list(apikey = key, id = id))
tt <- GET(url, query=args, callopts)
stop_for_status(tt)
out <- content(tt, as = "text")
res <- fromJSON(out, simplifyVector = FALSE)$response
class(res) <- "cg_getcommittees"
return( res )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.