R Function for recursive search of directories queried via the Microsoft365R package

recursive_search_microsoft365R

library(Microsoft365R)
library(tidyverse)

list_files_recursive <- function(folder_path) {
  files <- drv$list_items(folder_path) %>% 
    mutate(path = folder_path, 
           checked = ifelse(isdir == F, T, F))
  
  while(any(files$checked == F)) {
    for (id in files[!(files$checked), "id"]) {
      print(id)
      
      subfolder_path <- paste0(files[files$id == id, "path"], "/", files[files$id == id, "name"])
      
      files <- bind_rows(files, 
                         drv$list_files(subfolder_path) %>% 
                           mutate(path = subfolder_path, 
                                  checked = ifelse(isdir == F, T, F)))
      files[files$id == id, "checked"] <- T
    }
  }
  return(files)
}