scratch.R

# this is a scratch file to test new functions etc. locally before moving them to the shiny app

# load libraries
library(shiny)
library(tidyverse)
library(jsonlite)
library(anytime)
library(dplyr)

source("functions.R")

# load data (put in a doenetid - good doenetids to use are on slack)
doenetid <- ""
raw <-  stream_in(file(
  paste0(
    "https://www.doenet.org/api/getEventData.php?doenetId[]=",
    doenetid
  )
))

# clean the data
events <-  raw$events[[1]]
dates <- pull_dates(events)
min_date <- min(dates)
max_date <- max(dates)
cleaned_version <- clean_events(events, min(dates), max(dates))
summary_data_version <- summarize_events(cleaned)
cleaned <- version_filter(cleaned_version, 1)
summary_data <- summarize_events(cleaned)

###########################################
##### work below here
###########################################

times <-
  cleaned %>%
  select(userId, starts_with("X._")) %>%
  rename_all(list(~ str_replace(., "X._", ""))) %>%
  type_convert() %>%
  group_by(userId) %>%
  dplyr::summarize(across(everything(), ~ sum(.x, na.rm = T))) %>%
  ungroup() %>%
  select(-userId) %>%
  dplyr::summarize(across(everything(), ~ sum(.x, na.rm = T)))
times

times <- get_times(cleaned)
times