我的RODBC有问题;这是错误:
chargerExp("C:\\test.csv",NE=1,NC=1,s=1)
Exeperience: 1 Execution: 1 Sujet: 1
> ajouter(new ("BDD"),new("Exp"))
[1] "42000 1064 [MySQL][ODBC 5.2(a) Driver][mysqld-5.6.17]You have an error in your SQL syntax;
check the manual that corresponds to your MySQL server version for the right syntax to use near ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/' at line 1"
[2] "[RODBC] ERROR: Could not SQLExecDirect 'INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`,
`Z`, `T`, `A`, `S`) VALUES ( , , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , , );'"
我使用Mysql,RODBC和Rstudio,方法ajouter
插入数据库
setMethod( f ="ajouter",signature =c(x="BDD",obj="Exp"),
def = function(x, obj)
{
channel <- odbcConnect(dsn="RSQL",uid="root",pwd="toor")
ne <- obj["ne"]
nc <- obj["nc"]
s <- obj["S"]
e<- encoder((obj["E"]))
x <- encoder((obj["X"]))
y <- encoder((obj["Y"]))
z <- encoder((obj["Z"]))
t<- encoder((obj["T"]))
a <- (obj["A"])
requeteSql.valeur <- paste("'",e,"'",",",
"'",x,"'",",",
"'",y,"'",",",
"'",z,"'",",",
"'",t,"'",",")
requetesql <- paste("INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`, `Z`, `T`,
`A`, `S`) VALUES (",ne,",",nc,", ",requeteSql.valeur, a,", ",s,");")
sqlQuery(channel, requetesql)
}
)
这是编码器方法。它的主要目的是将我的对象转换为具有一些串联的文本。
setMethod( f ="encoder", signature ="Para",
def =function(x, i, j, value)
{
s <- as.character(x["val"][1])
for(i in 2:length(x["val"]))
{
s <- paste(s,x["val"][i],sep="/")
}
return(s)
}
)
我方法的召唤:
ajouter(new ("BDD"), new("Exp"))
这是我在数据库中的表格:
CREATE TABLE `test` (
`idTest` int(11) NOT NULL AUTO_INCREMENT,
`NE` int(11) DEFAULT NULL,
`NU` int(11) DEFAULT NULL,
`E` text,
`X` text,
`Y` text,
`Z` text,
T` text,
`A` float DEFAULT NULL,
`S` int(11) DEFAULT NULL,
PRIMARY KEY (`idTest`)
) ENGINE=InnoDB AUTO_INCREMENT=2 DEFAULT CHARSET=utf8;
我的问题来自sqlquery,它说我的语法不正确,我不知道为什么。
这是我要加载到数据库中的对象(来自dput
所以复制/粘贴):
new("Para"
, ne= 1
, nc = 1
, E = new("E"
, val = c(-13, -11, -11, -11, -11, -9, -10, -12, -12, -12, -11, -10,
-8, -8, -8, -9, -9, -7, -9, -10, -9, -9, -9, -9, -11, -9, -7,
-7, -7, -7, -7, -8, -7, -7, -5, -5, -7, -8, -7, -5, -5, -6, -6,
-9, -35, -76, -96, -62, 38, 167, 251, 251, 248, 157, 94, 56,
)
)
, X = new("Para"
, val = c(115, 116, 114, 113, 113, 114, 115, 114, 114, 113, 112, 111,
113, 114, 114, 115, 115, 116, 115, 115, 114, 116, 114, 115, 114,
113, 114, 114, 114, 114, 114, 113, 113, 114, 114, 114, 114, 115,
114, 115, 115, 115, 114, 115, 116, 114, 114, 114, 116, 115, 113,
)
)
, Y = new("Para"
, val = c(10, 11, 9, 9, 10, 9, 10, 9, 11, 10, 11, 10, 11, 11, 10, 11,
10, 10, 11, 10, 9, 10, 11, 12, 11, 10, 11, 11, 11, 12, 11, 11,
11, 10, 11, 11, 10, 12, 10, 11, 11, 11, 11, 11, 11, 10, 11, 11,
10, 11, 11, 11, 10, 11, 11, 11, 10, 11, 10, 12, 11, 10, 10, 10,
)
)
, Z = new("Para"
, val = c(-42, -42, -44, -43, -42, -41, -42, -42, -42, -42, -42, -43,
-40, -41, -41, -40, -41, -43, -41, -41, -41, -41, -41, -40, -40,
-41, -40, -40, -41, -40, -42, -41, -41, -41, -41, -41, -43, -42,
-43, -42, -41, -42, -42, -40, -41, -42, -40, -41, -41, -41, -42,
)
, T = new("Para"
, val = c(25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2,
25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2,
25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2,
25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2, 25.2,
)
)
, A = 1L
, S = 1
)
答案 0 :(得分:0)
我下载了你的代码,似乎有很多问题,其中最多的是实际运行你试过的查询。该错误告诉您它尝试运行SQL命令
INSERT INTO `test` (`NE`, `NC`, `E`, `X`, `Y`, `Z`, `T`, `A`, `S`)
VALUES ( , , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' , ' NA/NA/NA/ ' ,
' NA/NA/NA/ ' , 'NA/NA/NA/ ' , , );'
应该很清楚,看起来无效。我不认为你可以在INSERT语句中拥有emply值。
空白值来自
行ne <- obj["ne"]
nc <- obj["nc"]
s <- obj["S"]
在您的功能定义中,obj
是您的Exp
(或Experimentation
),您还无法为这些广告位设置任何值。由于它们是空向量,因此它们不会在paste
语句中呈现为任何内容。
蝙蝠侠值(又名NA/NA/NA
)来自
e<- encoder((obj["E"]))
x <- encoder((obj["X"]))
y <- encoder((obj["Y"]))
行。当Signal
类为空时(就像创建新的空对象时一样),val
槽只是一个空数字向量。因此,当您对其进行编码时,您已经设置了一个基本上正在进行的循环
s <- NA
for(i in 2:1)
{
s <- paste(s,NA,sep="/")
}
导致NA/NA/NA/
值。真的那个循环在不必要的,简单的
s <- paste(as.character(x["val"]), collapse="/")
会给你你想要的字符串,而不会出现倒计时问题。
所以真的,用这样的空对象运行ajouter(new ("BDD"),new("Exp"))
并没有多大意义。在将它们放在一起之前,你真的应该先自己测试每个类。在此之前,我无法相信你没有得到其他错误或警告。您应该分离错误并单独测试每个部分。