Managing files and folders

library(sharepointr)
library(tidyverse)

Common uses

Deleting empty directories:

url <- "https://bmore.sharepoint.com/:f:/r/sites/DOP-ALL/Shared%20Documents/LUUD?csf=1&web=1&e=g00uHf"

luud_items <- sp_dir_info(url, recurse = TRUE)

Workspaces

• 40’ setback from ROW for E-2 districts

luud_items |>
  dplyr::mutate(
    filename = if_else(
      type == "file",
      fs::path_file(name),
      NA_character_
    ),
    fileext = fs::path_ext(name),
    dir_path = if_else(
      type == "file",
      fs::path_dir(name),
      NA_character_
    ),
    dir_name = basename(dir_path)
  ) |>
  View()
openxlsx2::write_xlsx("LUUD-Items.xlsx")