if (FALSE) {
# path to all example files
path <- system.file('extdata', package = 'hydrotoolbox')
# we first build the snih station file
guido <-
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') )
guido %>% hm_show(slot_name = 'qd')
# now we can change default names
hm_name(obj = guido, slot_name = 'qd',
col_name = 'q(m3/s)') %>%
hm_show(slot_name = 'qd')
}
Run the code above in your browser using DataLab