R/test_script.R

In cheejus2/Intron_Vis: visualization of introns in RNA-seq data

#' test function
#' 
#' performs simple input and output for testing purposes
#' @param input The character input to add to "hello world"
#' @return "hello world" + the input is it is the correct type, else error message
#' @export
test_function <- function(input) {
  
  if (typeof(input) != "character") {
    return("wrong type of input")
  }
  
  output <- paste("hello world", input, sep = " ")
  
  return(output)
}