#' Get workspace id through it's name
#'
#' @param wsId Workspace's Id
#' @param key PowerBI application's Azure token
#' @return The Id from the first report inside the workspace which id you have passed as parameter
#' @example
#' report_id <- pbi_get_report_id_in_workspace("workspaceId","key")
#' @import AzureAuth
#' @import httr
#' @import jsonlite
#'
#' @export
pbi_get_report_id_in_workspace <- function(wsId, key){
url <- "https://api.powerbi.com/v1.0/myorg/"
endpoint <- paste(url,"groups/",wsId,"/reports", sep = "")
resp <- httr::GET(endpoint, httr::add_headers(Authorization = paste("Bearer", AzureAuth::extract_jwt(key), sep = " ")))
if(httr::http_type(resp) != "application/json"){
stop("API did not return a JSON", call. = FALSE)
}
parsed <- jsonlite::fromJSON(httr::content(resp, "text"), simplifyVector = FALSE)
result <- toString(parsed$value[[1]][1])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.