-TimeSum <- (TimeTracking %>% group_by(Category) %>% summarize(Duration = sum(Duration)))
-pie(TimeSum$Duration, TimeSum$Category
+TimeSum <- (TimeTracking %>% group_by(Category) %>% summarize(Duration = sum(Duration))))
+pie(TimeSum$Duration, TimeSum$Category)