Select Key Columns

Select Key Columns

select_key_columns(
  data,
  key_character_cols = c("^is[A-Z]", "^has[A-Z]", "^amount[A-Z]", "^count[A-Z]",
    "^pct[A-Z]", "percent[A-Z]", "^id[A-Z]", "^code[A-Z]", "typeOrganization", "cage",
    "city", "Vendor", "ProductService", "NAICS", "description", "nameContract",
    "Department", "Agency", "Office", "date[A-Z]", "datetime[A-Z]", "email",
    "transaction", "urlFPDSAtom"),
  remove_columns = c("slugOffice", "slugDepartment", "slugAgency", "namesVendor",
    "^namesVendor", "^fax[A-Z]")
)

Arguments

remove_columns