if (FALSE) {
# lets work with the cuevas station
path <- system.file('extdata', package = 'hydrotoolbox')
# use the build method
hm_cuevas <-
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)' )
)
# now we want to know which are the slots with data
hm_show(obj = hm_cuevas)
# see the last values of our data
hm_show(obj = hm_cuevas, show = 'tail')
# print the entire tables
hm_show(obj = hm_cuevas, show = "all")
# or maybe we want to know which slot have no data
hm_show(obj = hm_cuevas, slot_name = 'empty')
# focus on specific slots
hm_show(obj = hm_cuevas, slot_name = c('kin', 'rh') )
hm_show(obj = hm_cuevas, slot_name = c('kin', 'rh'), show = 'tail' )
}
Run the code above in your browser using DataLab