if (FALSE) {
# path to all example files
path <- system.file('extdata', package = 'hydrotoolbox')
# ianigla file
hm_create() %>%
hm_build(bureau = 'ianigla', path = path,
file_name = 'ianigla_cuevas.csv',
slot_name = c('tair', 'rh', 'patm',
'precip', 'wspd', 'wdir',
'kin', 'hsnow', 'tsoil'),
by = 'hour',
out_name = c('tair(°C)', 'rh(%)', 'patm(mbar)',
'p(mm)', 'wspd(km/hr)', 'wdir(°)',
'kin(kW/m2)', 'hsnow(cm)', 'tsoil(°C)' )
) %>%
hm_show()
# cr2 file
hm_create() %>%
hm_build(bureau = 'cr2', path = path,
file_name = 'cr2_tmax_yeso_embalse.csv',
slot_name = c('tmax'),
by = 'day',
out_name = c('tair(°C)' )
) %>%
hm_show()
# dgi file
hm_create() %>%
hm_build(bureau = 'dgi', path = path,
file_name = 'dgi_toscas.xlsx',
slot_name = c('swe', 'tmax',
'tmin', 'tmean', 'rh', 'patm'),
by = 'day' ) %>%
hm_show()
# snih file
hm_create() %>%
hm_build(bureau = 'snih', path = path,
file_name = c('snih_hq_guido.xlsx',
'snih_qd_guido.xlsx'),
slot_name = c('hq', 'qd'),
by = c('none', 'day') ) %>%
hm_show()
# aic => you have to request for this files to AIC.
# mnemos => the data are the same of snih but generated
# with MNEMOSIII software.
}
Run the code above in your browser using DataLab