R/error_msg.R

In etc5523-2020/r-package-assessment-BrendiA: What the Package Does (One Line, Title Case)

#' Creates error message if Shiny App input is empty
#'
#' @param input Shiny user-interface input
#' @param plot_type "bar" or "map"
#'
#' @return Error message if condition(s) are not met in the Shiny App
#'
#' @export
#'

error_msg <- function(input, plot_type){
  if(plot_type == "map") {
  shiny::validate(shiny::need(input != "", "Hello there, be sure to add a state or you'd run into an error"))
  }

  else if(plot_type == "bar") {
    shiny::validate(shiny::need(input != "", ""))
    }
}