From d092e17e332c4a82c05cf4cd16aa83613f5dfb6f Mon Sep 17 00:00:00 2001
From: junos <junos.lukan@ijs.si>
Date: Tue, 18 Apr 2023 15:34:06 +0200
Subject: [PATCH] Explore saved categories.

---
 presentation/ApplicationCategories.R | 33 ++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 presentation/ApplicationCategories.R

diff --git a/presentation/ApplicationCategories.R b/presentation/ApplicationCategories.R
new file mode 100644
index 0000000..4834f0b
--- /dev/null
+++ b/presentation/ApplicationCategories.R
@@ -0,0 +1,33 @@
+library(conflicted)
+library(yaml)
+library(RPostgreSQL)
+library(tidyverse)
+conflicts_prefer(dplyr::filter, 
+                 dplyr::lag)
+library(magrittr)
+
+# read the password from file
+credentials <- yaml.load_file("../rapids/credentials.yaml")
+pw <- credentials$PSQL_STRAW$password
+
+#load the PostgreSQL driver
+drv <- RPostgres::Postgres()
+
+# creates a connection to the postgres database
+# note that "con" will be used later in each connection to the database
+con <- RPostgres::dbConnect(drv, dbname = "staw",
+                            host = "eol.ijs.si", port = 5432,
+                            user = "staw_db", password = pw)
+
+rm(pw, credentials) # removes the password
+
+# check for the bluetooth table, an example
+dbExistsTable(con, "app_categories")
+
+df_app_categories <- tbl(con, "app_categories") %>% 
+  collect()
+
+head(df_app_categories)
+table(df_app_categories$play_store_genre)
+
+dbDisconnect(con)