如何修改R语言send_text函数，使其支持号码与消息双参数？

以下是支持动态传入接收号码和消息内容的函数：

send_text = function(number, message){
  system(paste('osascript -e \'tell application "Messages"\' -e \'send "', message, 
               '" to buddy "', number, '" of (service 1 whose service type is iMessage)\' -e \'end tell\''))
}

# 调用示例
send_text("123-456-7890", "Hello from R!")

修改说明 #

• 函数定义调整为send_text(number, message)，新增number参数用于指定接收方号码
• 核心修改点是在paste拼接命令时，将原固定号码"xxx-yyy-zzzz"替换为"', number, '"，这样就能把传入的number变量值动态插入到AppleScript命令的对应位置，保证生成的命令能正确识别接收方号码

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