attrl <- attr_xls(system.file("example/Attr.Template.xlsx",package = "amp.dm"))
nm <- read.csv(system.file("example/NM.theoph.V1.csv",package = "amp.dm"))
nmf <- attr_add(nm, attrl, verbose = FALSE)
attrl2 <- attr_extract(nmf)
all.equal(attrl,attrl2)
Run the code above in your browser using DataLab