# set path to file
path_file <- system.file('extdata', 'ianigla_cuevas.csv',
package = 'hydrotoolbox')
# read with default names
cuevas <- read_ianigla(path = path_file,
out_name = c('tair(°C)', 'rh(%)', 'patm(mbar)',
'p(mm)', 'wspd(km/hr)', 'wdir(°)',
'kin(kW/m2)', 'hsnow(cm)', 'tsoil(°C)') )
# remove values higher than 1.50 meters
cuevas %>%
set_threshold(col_name = 'hsnow(cm)',
out_name = 'hsnow_thres',
threshold = 150 )
Run the code above in your browser using DataLab