I am having problems implementing certain lines of code where i get the error message "object transDate not found" but the object is in my data. My data is as follows:
data <- tibble::tribble(
~Transaction, ~Item, ~Date, ~transDate, ~Month, ~WeekDay, ~Hour, ~Quantity, ~CustomerID, ~UnitPrice, ~Amount,
200560, "YELLOW BREAKFAST CUP AND SAUCER", "2019-06-21 01:40:00", "6/21/19", 6, "Friday", 1, 20, 14160, 0.39, 7.8,
200560, "YELLOW BREAKFAST CUP AND SAUCER", "2019-06-21 02:40:00", "6/21/19", 6, "Friday", 2, 20, 14160, 0.39, 7.8,
536365, "WHITE HANGING HEART T-LIGHT HOLDER", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 2.55, 15.3,
536365, "WHITE METAL LANTERN", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 3.39, 20.34,
536365, "CREAM CUPID HEARTS COAT HANGER", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 8, 17850, 2.75, 22,
536365, "KNITTED UNION FLAG HOT WATER BOTTLE", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 3.39, 20.34,
536365, "RED WOOLLY HOTTIE WHITE HEART.", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 3.39, 20.34,
536365, "SET 7 BABUSHKA NESTING BOXES", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 2, 17850, 7.65, 15.3,
536365, "GLASS STAR FROSTED T-LIGHT HOLDER", "2010-12-01 08:26:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 4.25, 25.5,
536366, "HAND WARMER UNION JACK", "2010-12-01 08:28:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 1.85, 11.1,
536366, "HAND WARMER RED POLKA DOT", "2010-12-01 08:28:00", "12/1/10", 12, "Wednesday", 8, 6, 17850, 1.85, 11.1,
536367, "ASSORTED COLOUR BIRD ORNAMENT", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 32, 13047, 1.69, 54.08,
536367, "POPPY'S PLAYHOUSE BEDROOM ", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 6, 13047, 2.1, 12.6,
536367, "POPPY'S PLAYHOUSE KITCHEN", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 6, 13047, 2.1, 12.6,
536367, "FELTCRAFT PRINCESS CHARLOTTE DOLL", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 8, 13047, 3.75, 30,
536367, "IVORY KNITTED MUG COSY ", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 6, 13047, 1.65, 9.9,
536367, "BOX OF 6 ASSORTED COLOUR TEASPOONS", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 6, 13047, 4.25, 25.5,
536367, "BOX OF VINTAGE JIGSAW BLOCKS ", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 4.95, 14.85,
536367, "BOX OF VINTAGE ALPHABET BLOCKS", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 2, 13047, 9.95, 19.9,
536367, "HOME BUILDING BLOCK WORD", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 5.95, 17.85,
536367, "LOVE BUILDING BLOCK WORD", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 5.95, 17.85,
536367, "RECIPE BOX WITH METAL HEART", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 4, 13047, 7.95, 31.8,
536367, "DOORMAT NEW ENGLAND", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 4, 13047, 7.95, 31.8,
536368, "JAM MAKING SET WITH JARS", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 6, 13047, 4.25, 25.5,
536368, "RED COAT RACK PARIS FASHION", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 4.95, 14.85,
536368, "YELLOW COAT RACK PARIS FASHION", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 4.95, 14.85,
536368, "BLUE COAT RACK PARIS FASHION", "2010-12-01 08:34:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 4.95, 14.85,
536369, "BATH BUILDING BLOCK WORD", "2010-12-01 08:35:00", "12/1/10", 12, "Wednesday", 8, 3, 13047, 5.95, 17.85,
536370, "ALARM CLOCK BAKELIKE PINK", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 3.75, 90,
536370, "ALARM CLOCK BAKELIKE RED ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 3.75, 90,
536370, "ALARM CLOCK BAKELIKE GREEN", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 12, 12583, 3.75, 45,
536370, "PANDA AND BUNNIES STICKER SHEET", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 12, 12583, 0.85, 10.2,
536370, "STARS GIFT TAPE ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 0.65, 15.6,
536370, "INFLATABLE POLITICAL GLOBE ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 48, 12583, 0.85, 40.8,
536370, "VINTAGE HEADS AND TAILS CARD GAME ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 1.25, 30,
536370, "SET/2 RED RETROSPOT TEA TOWELS ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 18, 12583, 2.95, 53.1,
536370, "ROUND SNACK BOXES SET OF4 WOODLAND ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 2.95, 70.8,
536370, "SPACEBOY LUNCH BOX ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 1.95, 46.8,
536370, "LUNCH BOX I LOVE LONDON", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 1.95, 46.8,
536370, "CIRCUS PARADE LUNCH BOX ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 1.95, 46.8,
536370, "CHARLOTTE BAG DOLLY GIRL DESIGN", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 20, 12583, 0.85, 17,
536370, "RED TOADSTOOL LED NIGHT LIGHT", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 1.65, 39.6,
536370, " SET 2 TEA TOWELS I LOVE LONDON ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 2.95, 70.8,
536370, "VINTAGE SEASIDE JIGSAW PUZZLES", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 12, 12583, 3.75, 45,
536370, "MINI JIGSAW CIRCUS PARADE ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 0.42, 10.08,
536370, "MINI JIGSAW SPACEBOY", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 24, 12583, 0.42, 10.08,
536370, "MINI PAINT SET VINTAGE ", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 36, 12583, 0.65, 23.4,
536370, "POSTAGE", "2010-12-01 08:45:00", "12/1/10", 12, "Wednesday", 8, 3, 12583, 18, 54,
536371, "PAPER CHAIN KIT 50'S CHRISTMAS ", "2010-12-01 09:00:00", "12/1/10", 12, "Wednesday", 9, 80, 13748, 2.55, 204,
536372, "HAND WARMER RED POLKA DOT", "2010-12-01 09:01:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.85, 11.1,
536372, "HAND WARMER UNION JACK", "2010-12-01 09:01:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.85, 11.1,
536373, "WHITE HANGING HEART T-LIGHT HOLDER", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.55, 15.3,
536373, "WHITE METAL LANTERN", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536373, "CREAM CUPID HEARTS COAT HANGER", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 8, 17850, 2.75, 22,
536373, "EDWARDIAN PARASOL RED", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 4.95, 29.7,
536373, "RETRO COFFEE MUGS ASSORTED", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536373, "SAVE THE PLANET MUG", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536373, "VINTAGE BILLBOARD DRINK ME MUG", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536373, "VINTAGE BILLBOARD LOVE/HATE MUG", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536373, "WOOD 2 DRAWER CABINET WHITE FINISH", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 2, 17850, 4.95, 9.9,
536373, "WOOD S/3 CABINET ANT WHITE FINISH", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 4, 17850, 6.95, 27.8,
536373, "WOODEN PICTURE FRAME WHITE FINISH", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.1, 12.6,
536373, "WOODEN FRAME ANTIQUE WHITE ", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.55, 15.3,
536373, "KNITTED UNION FLAG HOT WATER BOTTLE", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536373, "RED WOOLLY HOTTIE WHITE HEART.", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536373, "SET 7 BABUSHKA NESTING BOXES", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 2, 17850, 7.65, 15.3,
536373, "GLASS STAR FROSTED T-LIGHT HOLDER", "2010-12-01 09:02:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 4.25, 25.5,
536374, "VICTORIAN SEWING BOX LARGE", "2010-12-01 09:09:00", "12/1/10", 12, "Wednesday", 9, 32, 15100, 10.95, 350.4,
536375, "WHITE HANGING HEART T-LIGHT HOLDER", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.55, 15.3,
536375, "WHITE METAL LANTERN", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536375, "CREAM CUPID HEARTS COAT HANGER", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 8, 17850, 2.75, 22,
536375, "EDWARDIAN PARASOL RED", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 4.95, 29.7,
536375, "RETRO COFFEE MUGS ASSORTED", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536375, "SAVE THE PLANET MUG", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536375, "VINTAGE BILLBOARD DRINK ME MUG", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536375, "VINTAGE BILLBOARD LOVE/HATE MUG", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.06, 6.36,
536375, "WOOD 2 DRAWER CABINET WHITE FINISH", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 2, 17850, 4.95, 9.9,
536375, "WOOD S/3 CABINET ANT WHITE FINISH", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 4, 17850, 6.95, 27.8,
536375, "WOODEN PICTURE FRAME WHITE FINISH", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.1, 12.6,
536375, "WOODEN FRAME ANTIQUE WHITE ", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 2.55, 15.3,
536375, "KNITTED UNION FLAG HOT WATER BOTTLE", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536375, "RED WOOLLY HOTTIE WHITE HEART.", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 3.39, 20.34,
536375, "SET 7 BABUSHKA NESTING BOXES", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 2, 17850, 7.65, 15.3,
536375, "GLASS STAR FROSTED T-LIGHT HOLDER", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 4.25, 25.5,
536376, "HOT WATER BOTTLE TEA AND SYMPATHY", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 48, 15291, 3.45, 165.6,
536376, "RED HANGING HEART T-LIGHT HOLDER", "2010-12-01 09:32:00", "12/1/10", 12, "Wednesday", 9, 64, 15291, 2.55, 163.2,
536377, "HAND WARMER RED POLKA DOT", "2010-12-01 09:34:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.85, 11.1,
536377, "HAND WARMER UNION JACK", "2010-12-01 09:34:00", "12/1/10", 12, "Wednesday", 9, 6, 17850, 1.85, 11.1,
536378, "JUMBO BAG PINK POLKADOT", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 1.95, 19.5,
536378, "JUMBO BAG BAROQUE BLACK WHITE", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 1.95, 19.5,
536378, "JUMBO BAG CHARLIE AND LOLA TOYS", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 2.95, 29.5,
536378, "STRAWBERRY CHARLOTTE BAG", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 0.85, 8.5,
536378, "RED 3 PIECE RETROSPOT CUTLERY SET", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 12, 14688, 3.75, 45,
536378, "BLUE 3 PIECE POLKADOT CUTLERY SET", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 6, 14688, 3.75, 22.5,
536378, "SET/6 RED SPOTTY PAPER PLATES", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 12, 14688, 0.85, 10.2,
536378, "LUNCH BAG RED RETROSPOT", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 1.65, 16.5,
536378, "STRAWBERRY LUNCH BOX WITH CUTLERY", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 6, 14688, 2.55, 15.3,
536378, "LUNCH BOX WITH CUTLERY RETROSPOT ", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 6, 14688, 2.55, 15.3,
536378, "PACK OF 72 RETROSPOT CAKE CASES", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 120, 14688, 0.42, 50.4,
536378, "PACK OF 60 DINOSAUR CAKE CASES", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 24, 14688, 0.55, 13.2,
536378, "PACK OF 60 PINK PAISLEY CAKE CASES", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 24, 14688, 0.55, 13.2,
536378, "60 TEATIME FAIRY CAKE CASES", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 24, 14688, 0.55, 13.2,
536378, "TOMATO CHARLIE+LOLA COASTER SET", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 6, 14688, 2.95, 17.7,
536378, "CHARLIE & LOLA WASTEPAPER BIN FLORA", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 48, 14688, 1.25, 60,
536378, "RED CHARLIE+LOLA PERSONAL DOORSIGN", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 96, 14688, 0.38, 36.48,
536378, "JUMBO STORAGE BAG SUKI", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 1.95, 19.5,
536378, "JUMBO BAG PINK VINTAGE PAISLEY", "2010-12-01 09:37:00", "12/1/10", 12, "Wednesday", 9, 10, 14688, 1.95, 19.5,
536380, "JAM MAKING SET PRINTED", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 24, 17809, 1.45, 34.8,
536381, "RETROSPOT TEA SET CERAMIC 11 PC ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 23, 15311, 4.25, 97.75,
536381, "GIRLY PINK TOOL SET", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 5, 15311, 4.95, 24.75,
536381, "JUMBO SHOPPER VINTAGE RED PAISLEY", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 10, 15311, 1.95, 19.5,
536381, "AIRLINE LOUNGE,METAL SIGN", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 2.1, 4.2,
536381, "WHITE SPOT RED CERAMIC DRAWER KNOB", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 6, 15311, 1.25, 7.5,
536381, "RED DRAWER KNOB ACRYLIC EDWARDIAN", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 24, 15311, 1.25, 30,
536381, "CLEAR DRAWER KNOB ACRYLIC EDWARDIAN", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 24, 15311, 1.25, 30,
536381, "PHOTO CLIP LINE", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 1.25, 1.25,
536381, "FELT EGG COSY CHICKEN", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 0.85, 0.85,
536381, "PIGGY BANK RETROSPOT ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 2.55, 2.55,
536381, "SKULL SHOULDER BAG", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 10, 15311, 1.65, 16.5,
536381, "YOU'RE CONFUSING ME METAL SIGN ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 3, 15311, 1.69, 5.07,
536381, "COOK WITH WINE METAL SIGN ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 1.95, 1.95,
536381, "GIN + TONIC DIET METAL SIGN", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 2.1, 4.2,
536381, "YELLOW BREAKFAST CUP AND SAUCER", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 2.95, 2.95,
536381, "PINK BREAKFAST CUP AND SAUCER ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 2.95, 2.95,
536381, "PAPER CHAIN KIT 50'S CHRISTMAS ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 4, 15311, 2.95, 11.8,
536381, "PAPER CHAIN KIT RETROSPOT", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 2.95, 2.95,
536381, "SMALL HEART FLOWERS HOOK ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 6, 15311, 0.85, 5.1,
536381, "PHOTO CLIP LINE", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 3, 15311, 1.25, 3.75,
536381, "TEA TIME DES TEA COSY", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 2.55, 5.1,
536381, "FELT EGG COSY WHITE RABBIT ", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 0.85, 0.85,
536381, "ZINC WILLIE WINKIE CANDLE STICK", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 0.85, 0.85,
536381, "CERAMIC CHERRY CAKE MONEY BANK", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 1.45, 1.45,
536381, "RETROSPOT LARGE MILK JUG", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 4.95, 4.95,
536381, "SET OF 6 FUNKY BEAKERS", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 2.95, 5.9,
536381, "EDWARDIAN PARASOL BLACK", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 5.95, 11.9,
536381, "EDWARDIAN PARASOL NATURAL", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 5.95, 11.9,
536381, "CERAMIC STRAWBERRY CAKE MONEY BANK", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 4, 15311, 1.45, 5.8,
536381, "BLUE OWL SOFT TOY", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 2.95, 2.95,
536381, "BALLOON ART MAKE YOUR OWN FLOWERS", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 1, 15311, 1.95, 1.95,
536381, "RED TOADSTOOL LED NIGHT LIGHT", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 2, 15311, 1.65, 3.3,
536381, "GLASS CLOCHE SMALL", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 3, 15311, 3.95, 11.85,
536381, "GUMBALL MONOCHROME COAT RACK", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 36, 15311, 1.06, 38.16,
536381, "DOORMAT FANCY FONT HOME SWEET HOME", "2010-12-01 09:41:00", "12/1/10", 12, "Wednesday", 9, 10, 15311, 6.75, 67.5,
536382, "INFLATABLE POLITICAL GLOBE ", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 12, 16098, 0.85, 10.2,
536382, "VINTAGE SNAKES & LADDERS", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 8, 16098, 3.75, 30,
536382, "CHOCOLATE CALCULATOR", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 12, 16098, 1.65, 19.8,
536382, "JUMBO SHOPPER VINTAGE RED PAISLEY", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 10, 16098, 1.95, 19.5,
536382, "RECYCLING BAG RETROSPOT ", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 10, 16098, 2.1, 21,
536382, "TOY TIDY PINK POLKADOT", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 50, 16098, 1.85, 92.5,
536382, "ANTIQUE GLASS DRESSING TABLE POT", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 8, 16098, 2.95, 23.6,
536382, "ALARM CLOCK BAKELIKE GREEN", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 4, 16098, 3.75, 15,
536382, "IVORY GIANT GARDEN THERMOMETER", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 12, 16098, 5.95, 71.4,
536382, "3 TIER CAKE TIN GREEN AND CREAM", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 2, 16098, 14.95, 29.9,
536382, "3 TIER CAKE TIN RED AND CREAM", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 2, 16098, 14.95, 29.9,
536382, "SET 3 WICKER OVAL BASKETS W LIDS", "2010-12-01 09:45:00", "12/1/10", 12, "Wednesday", 9, 4, 16098, 16.95, 67.8,
536384, "WOOD BLACK BOARD ANT WHITE FINISH", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 3, 18074, 6.45, 19.35,
536384, "COLOUR GLASS T-LIGHT HOLDER HANGING", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 48, 18074, 0.65, 31.2,
536384, "HANGING METAL HEART LANTERN", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 12, 18074, 1.65, 19.8,
536384, "HANGING MEDINA LANTERN SMALL", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 6, 18074, 2.95, 17.7,
536384, "NATURAL SLATE HEART CHALKBOARD ", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 12, 18074, 2.95, 35.4,
536384, "HEART OF WICKER SMALL", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 40, 18074, 1.45, 58,
536384, "HEART OF WICKER LARGE", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 40, 18074, 2.55, 102,
536384, "WHITE LOVEBIRD LANTERN", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 6, 18074, 2.95, 17.7,
536384, "CLASSIC METAL BIRDCAGE PLANT HOLDER", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 2, 18074, 12.75, 25.5,
536384, "CREAM HEART CARD HOLDER", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 4, 18074, 3.95, 15.8,
536384, "ENAMEL FLOWER JUG CREAM", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 3, 18074, 5.95, 17.85,
536384, "ENAMEL FIRE BUCKET CREAM", "2010-12-01 09:53:00", "12/1/10", 12, "Wednesday", 9, 6, 18074, 6.95, 41.7,
My code is as follows:
# Visualise product stock out costs
output$stockOutCost <- renderPlot({
req(credentials()$user_auth)
withProgress(message = 'Calculation in progress',
detail = 'This may take a while...', value = 0, {
for (i in 1:15) {
incProgress(1/15)
Sys.sleep(30)
}
})
stocks <- MBA_Online() %>%
select(-Transaction, -CustomerID, -Amount) %>%
group_by(Item) %>%
summarise(Avg_Unit_Price = mean(UnitPrice)) %>%
# mutate(first_date = min(as.Date(Date)),
# last_date = max(as.Date(Date)),
# exposure = last_date - first_date) %>%
mutate(first_date = min(transDate),
last_date = max(transDate),
exposure = last_date - first_date) %>%
mutate(exposure = as.numeric(exposure)) %>%
filter(exposure > 0) %>%
mutate(totalQuantity = sum(Quantity)) %>%
select(-Quantity, -transDate) %>%
mutate(AUSPD = totalQuantity/exposure) %>%
stocks %>% distinct() %>%
mutate(stockOutValue = input$stockout*AUSPD*UnitPrice) %>%
summarise(Avg_stockOut_Value = (mean(stockOutValue))) %>%
arrange(desc(Avg_stockOut_Value)) %>%
top_n(input$top_N) %>%
ggplot(aes(x=reorder(Item,Avg_stockOut_Value), y = Avg_stockOut_Value, fill = Item)) +
geom_bar(stat="identity") +
coord_flip()+
geom_label(aes(label= paste("$", format(Avg_stockOut_Value, big.mark = ","))))+
theme(legend.position="none")+
theme(panel.background = element_blank())+
labs(x = "Item", y = "Cost of Stockout", title = "Cost of Stock Outs by Item") +
labs(title="Cost of Stock Outs by Item")
}, height = 550, width = 750)
With this code i get an error message: "object transDate cannot be found". If I change the code to use the column "Date" i get a message "object Date cannot be found".. There must be some errors in my code.
Kindly assist
Regards,
Chris