Skip to content

Instantly share code, notes, and snippets.

View cbnumbers's full-sized avatar

cbnumbers

View GitHub Profile
FullDataSetFee_Errors_Parents_2_Dupecheck <- FullDataSetFee_Errors_Parents_2_FinalCheck %>%
mutate(ProdFlag = "New") %>%
bind_rows(Fee_SVC_Code__c2_Parents) %>%
group_by(AUTO_CHARGE__C, DISPOSAL_APPLY__C,
FEE_UOM__C, FREQUENCY__C, FUEL_EXEMPT__C, LOB__C, MAS_LIBRARY__C, MDM_SURCHARGE_NAME__C, NO_CHARGE__C, OCCURS__C, RATE_TYPE__C, ROLL_OFF_SERVICE_CLS__C) %>%
arrange(AUTO_CHARGE__C, DISPOSAL_APPLY__C,
FEE_UOM__C, FREQUENCY__C, FUEL_EXEMPT__C, LOB__C, MAS_LIBRARY__C, MDM_SURCHARGE_NAME__C, NO_CHARGE__C, OCCURS__C, RATE_TYPE__C, ROLL_OFF_SERVICE_CLS__C, ProdFlag) %>%
mutate(rank = row_number(ProdFlag))
@cbnumbers
cbnumbers / filter_thing.r
Created March 9, 2020 20:36
optional filter thing
comp_df_filtered <- comp_df %>%
filter(SERVICE_AUTO_CHARGE__C == auto_charge, SERVICE_RATE_TYPE__C == CO_Service$APPLY_RATE_PER_CONTAINER__C,
TRUE ==
((QUANTITY__C == CO_Service$QUANTITY_REQUESTED__C & FREQUENCY__C == CO_Service$FREQUENCY__C & OCCURS__C == occurs) |
(is.na(QUANTITY__C) & FREQUENCY__C == CO_Service$FREQUENCY__C & OCCURS__C == occurs) |
(is.na(QUANTITY__C) & FREQUENCY__C == "" & OCCURS__C == occurs) |
(is.na(QUANTITY__C) & FREQUENCY__C == "" & OCCURS__C == "")))