Nothing
#' @export
#' @title Test if the system is "Windows"
#' @description Test if the operating system is "Windows"
#' @return TRUE or FALSE
#' @family operating system testing
#' @examples
#' is_windows()
is_windows <- function() {
"windows" %in% .Platform$OS.type
}
#' @export
#' @title Test if the system is "macOS"
#' @description Test if the operating system is "macOS"
#' @return TRUE or FALSE
#' @family operating system testing
#' @examples
#' is_osx()
is_osx <- function() {
"unix" %in% .Platform$OS.type &&
"Darwin" %in% Sys.info()["sysname"]
}
#' @export
#' @title Test if the system is "unix"
#' @description Test if the operating system is "unix"
#' @return TRUE or FALSE
#' @family operating system testing
#' @examples
#' is_unix()
is_unix <- function() {
"unix" %in% .Platform$OS.type &&
!"Darwin" %in% Sys.info()["sysname"]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.