能否在循环中使用system函数批量执行终端命令？有无base函数替代glue？

Hey there! Great question—yes, you absolutely can use system() (or the more reliable system2()) inside loops to automate repetitive terminal tasks. This is exactly the kind of workflow that makes combining R with the terminal so powerful for batch processing files.

Let's break down how to do this using base R alternatives to glue, plus some fixes and improvements to your sample code.

Base R Ways to Build Command Strings #

You don’t need the glue package to construct your terminal commands—base R has two simple, effective options:

1. Using paste() (Straightforward Concatenation) #

paste() and paste0() are perfect for stitching together command parts. Here's how to adapt your code:

setwd(path_to_files)
dir.create('pdf', recursive = TRUE) # Avoids errors if the folder already exists
all_files <- list.files(pattern = "\\.pptx$") # Only grab PowerPoint files

lapply(all_files, function(x) {
  # Strip the file extension to reuse the name
  file_name_no_ext <- tools::file_path_sans_ext(x)
  # Build the command string
  cmd <- paste("unoconv -f pdf", paste0(file_name_no_ext, ".pptx"))
  # Run the command
  system(cmd)
})

2. Using sprintf() (Clean Template-Based Formatting) #

If you prefer a template-style approach, sprintf() lets you define placeholders for your variables. It’s especially readable for longer commands:

setwd(path_to_files)
dir.create('pdf', recursive = TRUE)
all_files <- list.files(pattern = "\\.pptx$")

lapply(all_files, function(x) {
  file_name_no_ext <- tools::file_path_sans_ext(x)
  # %s acts as a placeholder for our filename string
  cmd <- sprintf("unoconv -f pdf %s.pptx", file_name_no_ext)
  system(cmd)
})

A Safer Choice: system2() #

For handling filenames with spaces or special characters (super common!), system2() is better than system(). It separates the command from its arguments, so you don’t have to mess with escaping characters:

setwd(path_to_files)
dir.create('pdf', recursive = TRUE)
all_files <- list.files(pattern = "\\.pptx$")

lapply(all_files, function(x) {
  # Pass the command and arguments separately
  system2("unoconv", args = c("-f", "pdf", x))
})

This is way more robust—no more broken commands if a filename has a space like "Q3 Report.pptx"!

Quick Fixes for Your Sample Code #

• I spotted a typo: sytsunoconv is almost certainly unoconv (a tool that uses LibreOffice to convert office files). If unoconv isn’t installed, you could also use libreoffice --convert-to pdf instead.
• Adding pattern = "\\.pptx$" ensures you only process PowerPoint files, avoiding errors with other types of files in your directory.
• recursive = TRUE in dir.create() prevents errors if the pdf folder (or its parent directories) already exist.

Content of the question来源于stack exchange，提问作者elliot