# NOT RUN {
pri.tab <- AWP.read.pkg.tab(tab.nm='Locomotion')
#pri.AWP <- AWP.get.SQL.table(tab.nm='Locomotion')
dim(pri.tab) #should may be fewer cols or rows locally ...
#dim(pri.AWP) # than there are available online.
apply(pri.tab, 2, function(x) sum(is.na(x))) # also more missing values
#apply(pri.AWP, 2, function(x) sum(is.na(x))) # locally than online
# update the "Comment" column locally with the same online
vars <- c('LocomotionID','Comment')
#tmp <- merge(x=pri.tab[,c(vars)] ,y=pri.AWP[,c(vars)], by='LocomotionID')
#out <- updatevals(x=tmp,y=NULL,v.old='Comment.x',v.new='Comment.y')
# }
Run the code above in your browser using DataLab