如何在R中利用system()函数卸载Windows系统下的SD卡？

完全可以用R的system()函数实现SD卡卸载，核心思路是通过system()调用Windows的diskpart工具，把卸载指令整合成批处理命令，无需手动交互式操作。

实现思路 #

你之前手动操作diskpart时需要选卷号，我们可以直接通过盘符定位SD卡，把diskpart的命令串成一条可直接执行的指令，用system()调用即可。

完整函数代码 #

sd_card_path <- 'D:/'
external_hard_drive_path <- 'E:/'

my_function <- function(sd_card_path, external_hard_drive_path) {
  # 1. 复制SD卡文件到外接硬盘（示例用目录复制，可按需替换）
  dir.copy(
    from = sd_card_path,
    to = file.path(external_hard_drive_path, "SD_backup"),
    recursive = TRUE,
    overwrite = TRUE
  )
  # 若需复制特定格式文件，可替换为：
  # target_files <- list.files(sd_card_path, pattern = "\\.raw$", full.names = TRUE)
  # file.copy(target_files, external_hard_drive_path)

  # 2. 提取SD卡标准盘符（把'D:/'转为'D:'）
  drive_letter <- gsub("/$", "", sd_card_path)
  
  # 3. 构造diskpart卸载的批处理命令
  diskpart_cmd <- paste0(
    'echo select volume ', drive_letter, ' && ',
    'echo remove all dismount && ',
    'echo exit | diskpart'
  )
  
  # 4. 执行卸载命令（wait=TRUE确保复制完成后再卸载）
  system(diskpart_cmd, wait = TRUE)
}

# 调用函数
my_function(sd_card_path, external_hard_drive_path)

关键细节说明 #

• 盘符处理：用gsub("/$", "", sd_card_path)去掉路径末尾的斜杠，得到diskpart能识别的标准盘符格式（如D:）。
• 非交互式执行：通过echo串联指令，用管道|传给diskpart，全程自动执行，不用手动输入命令。
• 等待机制：system()的wait = TRUE参数确保文件复制完成后再执行卸载，避免传输中断。

注意事项 #

如果卸载失败，尝试以管理员身份运行R/RStudio，部分Windows系统下diskpart需要管理员权限才能操作卷设备。

内容的提问来源于stack exchange，提问作者jmwiniarski