df <- mtcars %>% dplyr::as_tibble() %>% key_by(vs, am, disp)
df %>% remove_keys_all()
df %>% remove_keys_all(.unkey = TRUE)
df %>% remove_keys_if(rlang::is_integerish)
df %>% remove_keys_at(c("vs", "am"))
Run the code above in your browser using DataLab