ArrayToNc: example in documentation using metadata attributes doesn't work

The example in the function documentation for easyNCDF v0.0.7, doesn't work

a <- array(1:400, dim = c(5, 10, 4, 2))
metadata <- list( tos = list(addOffset = 100, scaleFact = 10, dim = list(list(name = 'time', unlim = FALSE))) ) 
attr(a, 'variables') <- metadata
names(dim(a)) <- c('lat', 'lon', 'time', 'var') 
ArrayToNc(a, './MEDSCOPE/tmp.nc')
         Error in vars_info[[j]] : subscript out of bounds