代码如下：

get_subfolder_info <- function(directory_path){
  # 获取目录下所有子文件夹的名称
  subfolders <- list.dirs(directory_path, recursive = FALSE)
  
  # 遍历每个子文件夹，获取其中的所有文件名
  for(i in 1:length(subfolders)){
    subfolder_files <- list.files(subfolders[i], recursive = TRUE)
    subfolders[i] <- list(name = subfolders[i], content = subfolder_files)
  }
  
  return(subfolders)
}

# 调用函数，获取指定目录下所有子文件夹的名称和内容
directory_path <- "path/to/directory"
subfolder_info <- get_subfolder_info(directory_path)
# 输出结果
print(subfolder_info)

这个函数使用list.dirs()函数来获取指定目录下所有子文件夹的名称，然后遍历每个子文件夹，并使用list.files()函数来获取该子文件夹下的所有文件名。最后将子文件夹的名称和内容存储到一个列表中，并返回该列表。

注意要将文件夹信息存储为列表，以便更好地表示名称和内容。