R/import-3-nowarrant_f.R

In junyitt/tfunction: tfunction for Trading Purposes

#' nowarrant_f()
#' 
#' return df without warrant"
#' @param df df
#' @keywords no warrant
#' @export
#'
nowarrant_f <- function(df = subraw_df){
      if(is.null(df)){
            return(NULL)
      }
      u1 <- nchar(df[,"Code."])==4
      u2 <- df[,"Code."] %in% "5235SS"  ##special for KLCC property
      
      nowarrant_df <- df[u1 | u2, ];
      return(nowarrant_df);
}