# set path to file
path_file <- system.file('extdata', 'dgi_toscas.xlsx',
package = 'hydrotoolbox')
# swe table
swe_toscas <- read_dgi(path = path_file,
sheet = 'swe',
out_name = 'swe(mm)')
# add melt and snowfall
swe_toscas <-
swe_toscas %>%
swe_derive(col_name = rep('swe(mm)', 2),
out_name = c('melt(mm)', 'snowfall(mm)'),
case = c('m', 'sf') )
Run the code above in your browser using DataLab