R/date_test.R

In choosunsick/kbodatamining: Kbo Data Mining and Analysis with R

#' yearly and monthly parameter test
#'
#' Tests whether the two parameters are null.
#'
#' @param data KBO batter data or KBO pitcher data
#' @param name The name of the batter or the team you want
#' @param id This is not a required parameter. The ID parameter is a numeric type.
#' @param yearly The default value is NULL. Possible value is a specific year.
#' @param monthly The default value is NULL. Possible value is a specific month.
#' @param recordname The name of the record you want
#' @return Baseball record data created according to 'yearly', 'monthly' parameter
#' @importFrom dplyr filter %>%
#' @importFrom rlang .data
#' @examples
#' ## internal function
#' date_test(hanhwa_batter_2018,"이용규",NULL,NULL,NULL,avg_formula)
#' @export
date_test <- function(data,name,id,yearly,monthly,recordname){
  if(is.null(yearly) == TRUE & is.null(monthly) == TRUE){
     temp <- yearly_record(data,name,id,recordname)
  }
  else if(is.null(yearly) == TRUE & is.null(monthly) == FALSE){
    if(is.character(monthly)==FALSE){
      stop("The monthly argument must be a string.")
    }
    else{
      monthly <- ifelse(nchar(monthly)==1,paste(0,monthly,sep=""),monthly)
      }
    temp <- yearly_month_record(data,name,id,recordname,monthly)
  }
  else if(is.null(yearly) == FALSE & is.null(monthly) == TRUE){
    if(nchar(yearly)!=4){
      stop("The yearly argument must be a 4-digit number type.")
    }
    temp <- yearly_record(data,name,id,recordname) %>% filter(.data$period==yearly)
  }
  else if(is.null(yearly) == FALSE & is.null(monthly) == FALSE){
    if(nchar(yearly)!= 4 | is.character(monthly)==FALSE){
      stop("The use of the yearly or monthly arguments is incorrect.")
    }
    else{
      monthly <- ifelse(nchar(monthly)==1,paste(0,monthly,sep=""),monthly)
    }
    temp <- year_month_record(data,name,id,recordname,yearly,monthly)
  }
  if(NROW(temp)==0){
    stop("There is no data for the time period you put.")
  }
  if("record.team" %in% colnames(temp)){
    temp$record.team <- as.character(temp$record.team)
  }
  temp$period <- as.character(temp$period)
  return(temp)
}