Hello ,
I am getting error while creating data frame with multiple rows.
request_body <- data.frame(DivisionId=c(DivisionId),PrimoId=c(PrimoId),Ename=c(Ename),Sname=c(Sname),StartDepth=c(StartDepth),EndDepth=c(EndDepth),SidetrackNum=c(SidetrackNum))
> bodyTest <- toJSON(request_body)
> bodyTest
[{"DivisionId":10,"PrimoId":73413,"Ename":"IRK_DRILLING","Sname":"RATE_OF_PENETRATION","StartDepth":0,"EndDepth":3000,"SidetrackNum":-1},{"DivisionId":63,"PrimoId":88245,"Ename":"IRK_DRILLING","Sname":"HOOK_LOAD","StartDepth":0,"EndDepth":6000,"SidetrackNum":-1}]
> r <- POST(url, body = bodyTest, encode = "json")
> resultRaw <- content(r, as = "text")
> dt <- fromJSON(resultRaw)
> testB2 <-
+ data.frame(
+ DivisionId=unlist(dt$DivisionId),
+ PrimoId=unlist(dt$PrimoId),
+ Wits=unlist(dt$Wits),
+ Adname=unlist(dt$Adname),
+ Mds = unlist(dt$Array$Mds),
+ Tms = unlist(dt$Array$Tms),
+ Vls = unlist(dt$Array$Vls),
+ Ads = unlist(dt$Array$Ads))
Error in data.frame(DivisionId = unlist(dt$DivisionId), PrimoId = unlist(dt$PrimoId), :
arguments imply differing number of rows: 2, 3625
Thanks,
Navjeet