typo

R/basicr.R

@@ -24,6 +24,7 @@ basicr <- function(dataset,target,group="none"){
     "MONTH" = dataset %>% group_by(MONTH) %>% basic_(target=target),
     stop("group not recognized"))
 
+  class(res) <- class(res)[-which(class(res)=="tbl_friendlyts")]
   res <- as_tbl_basic(res,group)
 
   return(res)