R/assert-is-ide.R

In assertive.reflection: Assertions for Checking the State of R

#' @rdname is_r
#' @export
assert_is_architect <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_architect, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_emacs <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_emacs, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_revo_r <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_revo_r, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_rstudio <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_rstudio, severity = severity)        
}

#' @rdname is_rstudio_current
#' @export
assert_is_rstudio_current <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_rstudio_current, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_rstudio_desktop <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_rstudio_desktop, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_rstudio_server <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_rstudio_server, severity = severity)        
}

#' @rdname is_r
#' @export
assert_is_visual_studio <- function(severity = getOption("assertive.severity", "stop"))
{                                                         
  assert_engine(is_visual_studio, severity = severity)        
}