## Path to example pro file
Filename <- system.file('extdata', 'example.pro', package = 'sarp.snowprofile')
## Download example pro file from niViz
#Filename <- tempfile(fileext = '.pro')
#download.file('https://niviz.org/resources/example.pro', Filename)
## Scan dates in file
Dates <- scanProfileDates(Filename)
print(Dates)
## Read a single profile by date and plot
ProfileDate <- Dates[3]
Profile <- snowprofilePro(Filename, ProfileDate = ProfileDate)
plot(Profile)
## Read entire time series and plot
Profiles <- snowprofilePro(Filename)
plot(Profiles, main = 'Timeseries read from example.pro')
Run the code above in your browser using DataLab