R/pbiListAllReports.R

In olfrost/poweRbi: A httr wrapper for the Power BI REST API

#' List all reports.
#' @description Return a data frame containing basic information about all of the reports on your Power BI web service. Requires authentication before it can be executed.
#' @param toDf When TRUE, a tabular format is returned. When FALSE, more detailed content is returned as JSON.
#' @return Data frame.
#' @examples
#' \dontrun{pbiListAllReports()}

pbiListAllReports <- function(toDf = TRUE){

  # Call the query builder function that makes the API call.
  l = pbiQueryBuilder(endpoint = "reports")

  # Error handling.
  if(exists("error", where = l)) {
    stop(paste("GET request produced an error message: ", l$error$message))
    return(NULL)
  }

  # If the user wants the JSON from the successful API call, then return it.
  # Don't bother parsing to a data frame.
  if(toDf == FALSE) return(l)

  # Else, parse to a data frame.
  df = data.frame(
    Id = sapply(l$value, function(x){x$id}),
    Name = sapply(l$value, function(x){x$name}),
    WebUrl = sapply(l$value, function(x){x$webUrl}),
    EmbeddedUrl = sapply(l$value, function(x){x$embedUrl})
  )

  return(df)

}