R/fileInputFunc.R

In crisprseekplus: crisprseekplus

#' fileInputFunc
#'
#' If input file is empty, use sample file 
#'
#' @note \code{fileInputFunc}
#' @return If no file is uploaded, use sample file
#' @param input, enter correct files
#' @param sampleFile, sampleFile
#'
#' @examples
#'     x<- fileInputFunc()
#'
#'
#' @export
#

fileInputFunc <- function(input = NULL, sampleFile = NULL) {
  if (is.null(sampleFile)) return(NULL)
  if(is.null(input)) {
    sampleFile
  }
  else {
    input
  }
}