R/hw06_fun2.R

Defines functions myfun2

library(tidyverse)
library(dplyr)

myfun2 <- function(df){
  lapcols <- lapply(df, class)
  numeric_df <- filter(df, class(df) == numeric)
  numeric_df
}

myfun2(mtcars)
emalkin/testpackage documentation built on April 17, 2022, 12:06 a.m.