, :
sqlUpdate R sqlQuery , :
observedString <- paste("[Observed] = ", obs)
differenceString <- paste("[Difference] = ", myTable$Difference[n])
shapiroString <- paste("[pValueShapiroWilks] = ", myTable$pValueShapiroWilks[n])
...
clauseString <- paste0("rownames = '", myTable$rownames[n], "'")
updateString <- paste0("UPDATE [myDB].[dbo].[myTable]
SET ",
observedString, ", ",
differenceString, ", ",
shapiroString, ", ",
ljungBoxString, ", ",
adfString, ", ",
warningString, ", ",
changeString,
" WHERE " , clauseString)
conOut <- odbcConnect("myDB", uid = "myID", pwd = "myPwd", believeNRows = T)
sqlQuery(conOut, updateString)
.
, sqlUpdate ...