my.mspct <- source_mspct(list(sun1 = sun.spct, sun2 = sun.spct * 2))
spct_metadata(my.mspct)
spct_metadata(sun.spct)
spct_metadata(my.mspct, na.rm = TRUE)
spct_metadata(sun.spct, na.rm = TRUE)
spct_metadata(my.mspct, col.names = c(geocode = "geo", "instr.desc"))
spct_metadata(sun.spct, col.names = c(geocode = "geo", "instr.desc"))
spct_metadata(sun.spct, col.names = "where.measured")$where.measured
Run the code above in your browser using DataLab