R/check_string_parameter.R

In alexander-pastukhov/eyelinkReader: Import Gaze Data for EyeLink Eye Tracker

#' Checks for validity of a string parameter, stops if not valid
#'
#' @param string_parameter String scalar
#'
#' @return character, value of the string_parameter
#' @export
#' @keywords internal
#'
#' @examples
#' start_marker <- "TRIALID"
#' check_string_parameter(start_marker)
check_string_parameter <- function(string_parameter){
  param_name <- as.character(match.call()[[2]])
  if (length(string_parameter) != 1) stop(sprintf("%s must be a scalar string value", param_name))
  if (is.null(string_parameter)) stop(sprintf("%s must be a scalar logical value, not NULL", param_name))
  if (!is.character(string_parameter)) stop(sprintf("%s must be a scalar string value", param_name))
  if (nchar(string_parameter) == 0) warning(sprintf("Empty string for %s parameter", param_name))
  if (is.na(string_parameter)) stop(sprintf("%s must be a scalar logical value, NA not allowed", param_name))

  string_parameter
}