Running examples in ‘sarp.snowprofile-Ex.R’ failed
The error most likely occurred in:

> ### Name: export.snowprofileCsv
> ### Title: Export or write a snowprofile object to a CSV table
> ### Aliases: export.snowprofileCsv
> 
> ### ** Examples
> 
> 
> ## export an entire snowprofile object:
> 
> export.snowprofileCsv(SPpairs$A_manual, filename = file.path(tempdir(), 'file.csv'),
+                       export.all = TRUE)
> 
> 
> ## export only the layer properties of a snowprofile object,
> #  and change the column order with few column names:
> #  All layer variables will be exported, but the three ones provided in 'variables'
> #  will be the first three columns of the csv table, and their column names will be changed
> #  accordingly.
> 
> export.snowprofileCsv(SPpairs$A_manual, filename = file.path(tempdir(), 'file.csv'),
+                       export.all = 'Layers',
+                       variables = list(height = 'height_top', hardness = 'hardness',
+                                        gtype = 'gt1'))
> 
> 
> ## export all layer properties of a snowprofile object plus the station ID:
> 
> export.snowprofileCsv(SPpairs$A_manual, filename = file.path(tempdir(), 'file.csv'),
+                       export.all = 'Layers', variables = list(station_id = 'station_id'))
> 
> ## check the content of the exported csv file:
> csv_content <- read.csv(file.path(tempdir(), 'file.csv'))
> head(csv_content)
     station_id depth thickness height hardness gtype gsize_avg gsize_max lwc
1 niviz_station   250        10     10        5  MFcr       1.5       1.5   D
2 niviz_station   230        20     30        3    FC       2.0       2.0   D
3 niviz_station   220        10     40        5  MFcr       1.5       1.5   D
4 niviz_station   157        63    103        4    RG       0.3       0.3   D
5 niviz_station   155         5    105        2    SH       5.0       5.0   D
6 niviz_station    95        60    165        4    RG       0.3       0.3   D
  gtype_sec ddate
1      <NA>  <NA>
2      <NA>  <NA>
3      <NA>  <NA>
4      <NA>  <NA>
5      <NA>  <NA>
6      <NA>  <NA>
> 
> ## or re-import the csv file as snowprofile object:
> csv_snowprofile <- snowprofileCsv(file.path(tempdir(), 'file.csv'))
Error in r[i1] - r[if (lag < (len <- length(r))) -len:-(len - lag + 1L) else i0] : 
  non-numeric argument to binary operator
Calls: snowprofileCsv ... format_snowprofileLayers -> snowprofileLayers -> diff -> diff.default
Execution halted