将文件夹和子文件夹拆分到R中的数据框

install.packages("tidyverse")
library(tidyverse)

folder_path <- "your_folder_path"
file_paths <- list.files(path = folder_path, recursive = TRUE, full.names = TRUE)

df <- data.frame(file_path = character(), is_folder = logical(), stringsAsFactors = FALSE)

for (path in file_paths) {
  is_folder <- file.info(path)$isdir
  df <- df %>% add_row(file_path = path, is_folder = is_folder)
}