我已经尝试了readLines和read.csv功能,但后来没有工作.
这是my_script.sql文件的内容:
SELECT EmployeeID, FirstName, LastName, HireDate, City FROM Employees
WHERE HireDate >= '1-july-1993'
Run Code Online (Sandbox Code Playgroud)
它保存在我的桌面上.
现在我想从我的R脚本运行此查询.这是我有的:
conn = connectDb()
fileName <- "C:\\Users\\me\\Desktop\\my_script.sql"
query <- readChar(fileName, file.info(fileName)$size)
query <- gsub("\r", " ", query)
query <- gsub("\n", " ", query)
query <- gsub("", " ", query)
recordSet <- dbSendQuery(conn, query)
rate <- fetch(recordSet, n = -1)
print(rate)
disconnectDb(conn)
Run Code Online (Sandbox Code Playgroud)
在这种情况下,我没有得到任何回报.我该怎么办?