Skip to content

Instantly share code, notes, and snippets.

@moritzpschwarz
Last active February 11, 2023 21:30
Show Gist options
  • Save moritzpschwarz/ea367a59fa3ef68eb785d8f1847c824c to your computer and use it in GitHub Desktop.
Save moritzpschwarz/ea367a59fa3ef68eb785d8f1847c824c to your computer and use it in GitHub Desktop.
Add :: to package functions
library(xfun)
gsub_dir(dir = "R", pattern = "mutate\\(", replacement = "dplyr::mutate\\(")
gsub_dir(dir = "R", pattern = "select\\(", replacement = "dplyr::select\\(")
gsub_dir(dir = "R", pattern = "filter\\(", replacement = "dplyr::filter\\(")
gsub_dir(dir = "R", pattern = "bind_rows\\(", replacement = "dplyr::bind_rows\\(")
gsub_dir(dir = "R", pattern = "bind_cols\\(", replacement = "dplyr::bind_cols\\(")
gsub_dir(dir = "R", pattern = "case_when\\(", replacement = "dplyr::case_when\\(")
gsub_dir(dir = "R", pattern = "left_join\\(", replacement = "dplyr::left_join\\(")
gsub_dir(dir = "R", pattern = "full_join\\(", replacement = "dplyr::full_join\\(")
gsub_dir(dir = "R", pattern = "contains\\(", replacement = "dplyr::contains\\(")
gsub_dir(dir = "R", pattern = "distinct\\(", replacement = "dplyr::distinct\\(")
gsub_dir(dir = "R", pattern = "first\\(", replacement = "dplyr::first\\(")
gsub_dir(dir = "R", pattern = "any_of\\(", replacement = "dplyr::any_of\\(")
gsub_dir(dir = "R", pattern = "all_of\\(", replacement = "dplyr::all_of\\(")
gsub_dir(dir = "R", pattern = "group_by\\(", replacement = "dplyr::group_by(")
gsub_dir(dir = "R", pattern = "relocate\\(", replacement = "dplyr::relocate(")
# new
gsub_dir(dir = "R", pattern = "across\\(", replacement = "dplyr::across\\(")
gsub_dir(dir = "R", pattern = "starts_with\\(", replacement = "dplyr::starts_with\\(")
gsub_dir(dir = "R", pattern = "rename_with\\(", replacement = "dplyr::rename_with\\(")
gsub_dir(dir = "R", pattern = "rename\\(", replacement = "dplyr::rename\\(")
gsub_dir(dir = "R", pattern = "arrange\\(", replacement = "dplyr::arrange\\(")
gsub_dir(dir = "R", pattern = "summarise\\(", replacement = "dplyr::summarise\\(")
gsub_dir(dir = "R", pattern = "rowwise", replacement = "dplyr::rowwise()")
gsub_dir(dir = "R", pattern = "rowwise\\(\\)\\(", replacement = "rowwise\\(")
gsub_dir(dir = "R", pattern = "ungroup", replacement = "dplyr::ungroup()")
gsub_dir(dir = "R", pattern = "ungroup\\(\\)\\(\\)", replacement = "ungroup()")
gsub_dir(dir = "R", pattern = "ungroup\\(", replacement = "dplyr::ungroup(")
gsub_dir(dir = "R", pattern = "tibble\\(", replacement = "dplyr::tibble\\(")
gsub_dir(dir = "R", pattern = "as_dplyr::tibble\\(", replacement = "dplyr::as_tibble\\(")
gsub_dir(dir = "R", pattern = "pull", replacement = "dplyr::pull()")
gsub_dir(dir = "R", pattern = "pull\\(\\)\\(", replacement = "pull(")
gsub_dir(dir = "R", pattern = "pull\\(", replacement = "dplyr::pull\\(")
# USE WITH CARE!
gsub_dir(dir = "R", pattern = "n\\(\\)", replacement = "dplyr::n\\(\\)")
gsub_dir(dir = "R", pattern = "returdplyr::n\\(\\)", replacement = "return()")
gsub_dir(dir = "R", pattern = "getRversiodplyr::n()", replacement = "getRversion")
## tidyr
gsub_dir(dir = "R", pattern = "pivot_longer\\(", replacement = "tidyr::pivot_longer\\(")
gsub_dir(dir = "R", pattern = "pivot_wider\\(", replacement = "tidyr::pivot_wider\\(")
gsub_dir(dir = "R", pattern = "separate\\(", replacement = "tidyr::separate\\(")
gsub_dir(dir = "R", pattern = "drop_na\\(", replacement = "tidyr::drop_na\\(")
gsub_dir(dir = "R", pattern = "unnest\\(", replacement = "tidyr::unnest\\(")
## stringr
gsub_dir(dir = "R", pattern = "str_extract_all\\(", replacement = "stringr::str_extract_all\\(")
gsub_dir(dir = "R", pattern = "str_detect\\(", replacement = "stringr::str_detect\\(")
## ggplot
gsub_dir(dir = "R", pattern = "scale_color_discrete\\(", replacement = "ggplot2::scale_color_discrete\\(")
gsub_dir(dir = "R", pattern = "scale_color_viridis_d\\(", replacement = "ggplot2::scale_color_viridis_d\\(")
gsub_dir(dir = "R", pattern = "aes\\(", replacement = "ggplot2::aes\\(")
gsub_dir(dir = "R", pattern = "ggplot\\(", replacement = "ggplot2::ggplot\\(")
gsub_dir(dir = "R", pattern = "facet_wrap\\(", replacement = "ggplot2::facet_wrap\\(")
gsub_dir(dir = "R", pattern = "geom_line\\(", replacement = "ggplot2::geom_line\\(")
gsub_dir(dir = "R", pattern = "scale_y_continuous\\(", replacement = "ggplot2::scale_y_continuous\\(")
gsub_dir(dir = "R", pattern = "labs\\(", replacement = "ggplot2::labs\\(")
gsub_dir(dir = "R", pattern = "theme\\(", replacement = "ggplot2::theme\\(")
gsub_dir(dir = "R", pattern = "theme_minimal\\(", replacement = "ggplot2::theme_minimal\\(")
gsub_dir(dir = "R", pattern = "element_blank\\(", replacement = "ggplot2::element_blank\\(")
gsub_dir(dir = "R", pattern = "arrow\\(", replacement = "ggplot2::arrow\\(")
gsub_dir(dir = "R", pattern = "unit\\(", replacement = "ggplot2::unit\\(")
gsub_dir(dir = "R", pattern = "unit\\(", replacement = "ggplot2::unit\\(")
## utils
gsub_dir(dir = "R", pattern = "tail\\(", replacement = "utils::tail\\(")
## remove errors
gsub_dir(dir = "R", pattern = "dplyr::dplyr::dplyr::", replacement = "dplyr::")
gsub_dir(dir = "R", pattern = "dplyr::dplyr::", replacement = "dplyr::")
gsub_dir(dir = "R", pattern = "tidyr::tidyr::", replacement = "tidyr::")
gsub_dir(dir = "R", pattern = "ggplot2::ggplot2::", replacement = "ggplot2::")
gsub_dir(dir = "R", pattern = "stringr::stringr::", replacement = "stringr::")
gsub_dir(dir = "R", pattern = "utils::utils::", replacement = "utils::")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment