drive_file_info.R

library(sharepointr)

drive <- get_sp_drive("<document library url>")

drive_files <- sp_dir_info(
  drive = drive
  )

drive_file_paths <- str_remove(drive_files[drive_files$isdir,]$name, "^/")

drive_file_info <- purrr::map_dfr(
  cli::cli_progress_along(drive_file_paths),
  \(x) {
    sp_dir_info(
      path = drive_file_paths[[x]],
      drive = drive,
      info = "partial",
      recurse = TRUE
    )
  }
)

drive_file_info