我懂你想要的效果——不用每次写system("bash -c 'xxx'")，直接用bash(xxx)就能调用bash执行复杂命令，还得处理那些带空格、特殊字符的场景对吧？其实核心问题就是正确转义命令里的特殊字符，避免shell解析出错，下面给你一步步解决：

基础函数写法（带自动转义） #

直接拼接字符串很容易踩转义的坑，R里的shQuote()函数能帮我们自动处理引号、空格、反斜杠这些特殊字符，让命令安全传递给shell。

Bash函数 #

bash <- function(command) {
  # 对传入的命令进行shell安全转义
  escaped_command <- shQuote(command, type = "sh")
  # 拼接成bash -c的完整命令并执行
  system(paste("bash -c", escaped_command))
}

Zsh函数 #

原理完全一样，只是把bash换成zsh：

zsh <- function(command) {
  escaped_command <- shQuote(command, type = "sh")
  system(paste("zsh -c", escaped_command))
}

怎么用？举几个例子 #

1. 简单命令（比如你的示例） #

bash("ls")  # 等价于在bash里执行ls
zsh("pwd")  # 等价于在zsh里执行pwd

2. 带空格的复杂命令（比如打开带空格的Excel文件） #

你提到的open -a Microsoft\ Excel training data.csv其实在shell里需要把带空格的名称用引号包裹，在R里调用时直接写正常的shell命令格式就行，shQuote会自动帮你转义：

bash('open -a "Microsoft Excel" "training data.csv"')

或者用shell的反斜杠转义写法也可以：

bash('open -a Microsoft\\ Excel training\\ data.csv')

3. 包含单引号的命令 #

如果命令里本身有单引号（比如echo 'Hello R & Shell'），shQuote也能正确处理，不用手动转义：

bash("echo 'Hello R & Shell'")

为什么原来的写法不行？ #

你最初写的system('bash -c command')里的command是字符串字面量，不是变量——也就是说不管你传入什么参数，它都会执行command这个shell命令（而不是你传入的命令）。必须把变量插入到字符串中，而shQuote就是解决插入时转义问题的关键。

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