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))

返回：Error in system(a, intern = TRUE) : 'SET' not found 一些建议？

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")

在命令行中编写带有R的mysql的导出过程

1 个答案: