Create and save catalogue.

presentation/ApplicationCategories.R

@@ -35,7 +35,8 @@ head(df_app_categories)
 table(df_app_categories$play_store_genre)
 
 # Correct some mistakes
-df_app_categories %<>% mutate(
+df_app_categories %<>%
+  mutate(
     play_store_genre = {
       function(x) {
         case_when(
@@ -46,6 +47,14 @@ df_app_categories %<>% mutate(
         )
       }
     }(play_store_genre)
+  ) %>%
+  rename(genre = play_store_genre)
+
+table(df_app_categories$genre)
+
+write_csv(
+  x = select(df_app_categories, c(package_hash, genre)),
+  file = "play_store_application_genre_catalogue.csv"
 )
 
 dbDisconnect(con)