Qbserve-data

# Import Data
p <- read_csv("2021-09-01_2021-10-01-project.csv", col_types = cols())
t <- read_csv("2021-09-01_2021-10-01-time.csv", col_types = cols())
ts <- fromJSON(file = "2021-09-01_2021-10-01-timesheet.json")

# View(ts)

apps <- ts[["history"]][["apps"]] %>% tibble() %>% unnest_wider(col = ".")

activities <- ts[["history"]][["activities"]] %>% tibble() %>% unnest_wider(col = ".")

log <- ts[["history"]][["log"]] %>% tibble() %>% unnest_wider(col = ".")

categories <- ts[["history"]][["categories"]] %>% tibble %>% unnest_wider(col = ".")

activity_top <- ts[["totals"]][["activity_top"]] %>% tibble() %>% unnest_wider(col = ".")
category_top <- ts[["totals"]][["category_top"]] %>% tibble() %>% unnest_wider(col = ".")

distracting_duration <- ts[["totals"]][["distracting_duration"]]
neutral_duration <- ts[["totals"]][["neutral_duration"]]
productive_duration <- ts[["totals"]][["productive_duration"]]

durations <- tibble(
  distracting_duration = distracting_duration,
  neutral_duration = neutral_duration,
  productive_duration = productive_duration
)

apps

activities

log

categories

activity_top

category_top

durations