make_option("--longflag")
    make_option(c("-l", "--longflag"))
    make_option("--integer", type="integer", default=5)
    make_option("--integer", default=as.integer(5))  # same as previous
    # examples from package vignette
    make_option(c("-v", "--verbose"), action="store_true", default=TRUE,
        help="Print extra output [default]")
    make_option(c("-c", "--count"), type="integer", default=5, 
        help="Number of random normals to generate [default %default]",
        metavar="number")
    make_option("--generator", default="rnorm", 
        help = "Function to generate random deviates [default "%default"]")
    make_option("--mean", default=0, 
        help="Mean if generator == "rnorm" [default %default]")
    make_option("--sd", default=1, metavar="standard deviation",
        help="Standard deviation if generator == "rnorm" [default %default]")
<testonly>if (require("RUnit")) {
        checkEquals(make_option("--integer", type="integer", default=5),
                    make_option("--integer", default=as.integer(5)))
        checkEquals(make_option("--logical", type="logical", default="TRUE"),
                    make_option("--logical", default=TRUE))
        checkException(make_option("badflag"))
    }</testonly>Run the code above in your browser using DataLab