##### save files as RDS to users disk
s1 = RSEIS::setWPX(name="HI", yr=2011, jd=231, hr=4, mi=3, sec = runif(5))
hh = PCsaveWPX(s1, destdir= tempdir() )
### read in the data
twpx = readRDS(hh)
data.frame(twpx)
Run the code above in your browser using DataLab