# NOT RUN {
defaults <- list( foo="a", bar=1 )
opt_fill( defaults, opts=c( '--foo', 'command-line-foo' ))
opt_fill( defaults, opts=c( '--foo', 'command-line-foo', '--bar', '9999' ))
defaults <- as.environment(defaults)
opt_fill( defaults, opts=c( '--foo', 'env-fill', '--bar', '555' ))
str( as.list(defaults) )
# }
Run the code above in your browser using DataLab