R/listCrawls.R

In voltek62/writingAssistantR: Create easily your premium guide with R. A Premium Guide is the list of the most important words of your content targeting a specific query.

#' list Crawls
#'
#' @details
#'
#' not documented : experimental
#'
#'
#' @examples
#' \dontrun{
#' crawls <- listCrawl()
#' }
#' @return Json
#' @author Vincent Terrasi
#' @export
listCrawl <- function() {

  hdr  <- c(Accept="application/json"
          ,Authorization=paste("Bearer",token)
  )

  reply <- getURL("https://self.cocon.se/API/crawl",
              header= TRUE,
              headerfunction = h$update,
              httpheader = hdr,
              verbose = TRUE)

  info <- getCurlInfo(curl)

  print(reply)

}