Генерация исключения

sell <- function(cars) {
  if (length(cars) == 0) {
    stop("No cars for sale")
  }
}

msg <- tryCatch(sell(character(0)),
                error = conditionMessage)
# msg = No cars for sale

cat("msg =", msg, "\n")