create-sharepoint-file-table.R

library(tidyverse)
library(gt)
library(sharepointr)

# url <- "https://<tenant>.sharepoint.com/:f:/r/sites/<site name>/<document library>/<path>"

file_list <- sp_dir_info(
  url,
  info = "all",
  recurse = TRUE
)

file_table <- file_list |> 
  mutate(
    filename = basename(name),
    url = webUrl,
    parent_name = parentReference[["name"]],
    created_by = createdBy$user$displayName,
    type,
    size,
    last_modified = lubridate::as_datetime(
      lastModifiedDateTime
    ),
    .keep = "used"
  ) |> 
  select(
    filename,
    url,
    parent_name,
    created_by,
    size,
    type,
    last_modified
  )

simple_file_table <- file_table |> 
  select(
    url,
    parent_name,
    size,
    created_by,
    last_modified
  ) |> 
  group_by(parent_name) |> 
  gt() |> 
  fmt_url(
    url,
    label = file_table$filename
  ) |> 
  fmt_datetime(
    last_modified,
    format = "yMd"
  )