library(httr) source("security.R") ### User specified adlsFolderName <- "Data" # Security info auth <- paste("Bearer", security_get_token(), " ") # Execute op <- "LISTSTATUS" adlsUri <- paste( "https://", security_adls_account_name, ".azuredatalakestore.net/webhdfs/v1", sep="" ) uri = paste(adlsUri, adlsFolderName, paste("?op=", op, sep=""), sep="/") r <- httr::GET(uri, add_headers(Authorization = auth)) jsonlite::toJSON(jsonlite::fromJSON(content(r, "text")), pretty = TRUE)