# verify that the packages qwraps2, and ggplot2 are available (this should be
# TRUE if you have qwraps2 installed since ggplot2 is imported by qwraps2)
pkg_check(c("qwraps2", "ggplot2"))
# show that the return is FALSE if a package is not available
pkg_check(c("qwraps2", "ggplot2", "NOT a PCKG"))
# verify the version for just ggplot2
pkg_check(c("qwraps2", "ggplot2"), c(NA, "2.2.0"))
# verify the version for qwraps2 (this is expected to fail as we are looking for
# version 42.3.14 which is far too advanced for the actual package development.
pkg_check(c("qwraps2", "ggplot2"), c("42.3.14", "2.2.0"))
if (FALSE) {
# You can have the function throw an error is any of the checks fail
pkg_check(c("qwraps2", "ggplot2"),
c("42.3.14", "2.2.0"),
stop = TRUE)
}
if (FALSE) {
# If you have missing packages that can be installed from CRAN you may find
# the following helpful. If this code, with the needed edits, were placed at
# the top of a script, then if a package is missing then the current version
# from a target repository will be installed. Use this set up with
# discretion, others may not want the automatic install of packages.
pkgs <- pkg_check("")
if (!pkgs) {
install.packages(attr(pkgs, "checks")[!attr(pkgs, "checks")$available][["package"]])
}
}
Run the code above in your browser using DataLab