data-raw/lhnsxfinal.R

library(nat)
load("~/projects/Shahar/LHNTracing/data/lhnsxfinal.rda")
cols=intersect(names(lhnsxfinal[,]), colnames(physplitdata::PhySplitDB))
notcols=setdiff(names(lhnsxfinal[,]), cols)
if(!isTRUE(all.equal(physplitdata::PhySplitDB[names(lhnsxfinal), cols],
                    lhnsxfinal[,cols]))){
  message("Updating lhnsxfinal metadata from physplitdata::PhySplitDB")
  lhnsxfinal[,cols]=physplitdata::PhySplitDB[names(lhnsxfinal),cols]
}
library(devtools)
use_data(lhnsxfinal, overwrite = TRUE)
jefferislab/physplitdata documentation built on June 5, 2019, 3:15 p.m.