# NOT RUN {
  opts <- c( '--foo', 'bar' )
 
  opt_get('foo')
  opt_get( c('foo'), opts=opts )    
  opt_grab( c('--foo'), opts=opts ) 
  
  opt_get_ms( c('foo'), opts=c('/foo', 'bar' ) )
  opt_get_java( c('foo'), opts=c('-foo', 'bar' ) )
  
  
  # Using pipes:
  
# }
# NOT RUN {
    c('foo', 'f') %>% opt_get('bar')
  
# }
# NOT RUN {
  
# }
Run the code above in your browser using DataLab