check-this.R

In ArcadeAntics/essentials: Essential Functions not Included in Base R

{
    essentials:::.update_DESCRIPTION_Date()
    essentials:::.check_this(  ## essentials
        build_opts = list(
            no_build_vignettes = TRUE,
            user = "iris"
        ),

        # INSTALL = FALSE,
        INSTALL_opts = list(
            # html = TRUE, latex = TRUE,
            # with_keep.source = TRUE
        ),

        check = FALSE,
        check_opts = list(
            no_stop_on_test_error = TRUE,
            as_cran = TRUE
        ),
        `_R_CHECK_CRAN_INCOMING_` = TRUE,

        chdir = TRUE
    )
}


{
    essentials:::.check_this(
        special = TRUE,
        build_opts = list(no_build_vignettes = TRUE, user = "iris"),
        INSTALL = FALSE,
        check = FALSE,
        chdir = TRUE
    )
}


jswitch("a",
    case("a") := {
        writeLines("a")
        break
    },
    icase("b") := {
        writeLines("b or B")
        break
    },
    case("c") := {
        writeLines("c")
    },
    recase("d") := {
        writeLines("contains d (or is c)")
        break
    },
    default := {
        writeLines("default")
    }
)


jswitch(1,
    case(1) := {
        writeLines("\n1\n")
    },
    case(5) := {
        writeLines("\n5 (or 1)\n")
        break
    },
    default := {
        writeLines("\ndefault\n")
    }
)



fun <- function (arg)
{
    jswitch(arg,
        case("foo"),
        case("bar") := {
            writeLines("\n\"foo\" or \"bar\" (case sensitive)\n")
            break
        },
        icase("pi") := {
            writeLines("\n\"pi\" or \"Pi\" or \"pI\" or \"PI\" (case insensitive)\n")
            break
        },
        recase("^D") := {
            writeLines("\nSomething that starts with \"D\" (case sensitive)\n")
            break
        },
        recase("^E", ignore.case = TRUE) := {
            writeLines("\nSomething that starts with \"E\" (case insensitive)\n")
            break
        },
        case("1") := {
            writeLines("\n\"1\"\n")
            # break omitted on purpose
        },
        case("2") := {
            writeLines("\n\"2\" (or \"1\")\n")
            break
        },
        default := {
            writeLines("\ndefault\n")
            break
        }
    )
}


fun("foo")
fun("FOO")
fun("bar")
fun("BAR")
fun("pi")
fun("Pi")
fun("pI")
fun("PI")
fun("Dentist")
fun("dentist")
fun("Entymology")
fun("entymology")
fun("1")
fun("2")
fun("none of the above")