mysql - 在命令行中使用 R 编写 mysql 的导出过程

Question

我正在使用命令行从 mysql 导出查询结果:

SET sql=C:\Program Files\MySQL\MySQL Workbench CE 6.1.4\mysql.exe
SET p_s=C:\Rtools\bin\sed.exe

"%sql%" --skip-secure-auth --host=xxx.xxx.xx.x --user=myuser --password=mypass  mydb <c:/Temp/my_query.txt | "%p_s%" 's/\t/;/g'  >  C:/Temp/myfile.txt

这对我来说非常有用。现在我想在 R 中编写这个过程。我正在尝试这样的事情:

b<-"SET sql=C:\\Program Files\\MySQL\\MySQL Workbench CE 6.1.4\\mysql.exe"
a<-"SET p_s=C:\\Rtools\\bin\\sed.exe"
s<-  ' "%sql%" --skip-secure-auth --host=xxx.xxx.xx.x --user=myuser--password=mypass  mydb <c:/Temp/my_query.txt | "%p_s%" \'s/\\t/;/g\'  >  C:/Temp/myfile.txt'

system(a)
system(b)
system(s)

但这行不通。如果我运行:

try(system(a, intern = TRUE))

它返回:系统错误(a，intern = TRUE):找不到“SET” 一些建议？

Answer 1

我按照@hrbrmstr 的建议解决了创建 .BAT 文件的问题

p1<-"SET sql=C:\\Program Files\\MySQL\\MySQL Workbench CE 6.1.4\\mysql.exe"
p2<-"SET p_s=C:\\Rtools\\bin\\sed.exe"

host<-"xxx.xxx.xx.x"
user<-"myuser"
password<-"mypass"
db<-"mydb"
sep<-";"
file<-"C:/Temp/myfile.txt"

query<- "SELECT * FROM mytable limit 100;"

cmd<-paste('"%sql%" --skip-secure-auth --host=',host,' --user=',user,' --password=',password,' ',db,' <c:/Temp/query.sql | "%p_s%" \'s/\\t/',sep , '/g\'  >', file,sep="")
cmd<-paste(p1,p2,cmd, sep="\n")

setwd("c:\\temp")
write(query,"query.sql")
write(cmd,"mycommand.bat")
system("mycommand.bat")