DEFINITIONS.R

#'
#' Variables for the Training and location analysis project
#'

##  Main Data Base  ------------------------------------------------------------
DATASET <- "~/DATA/Other/Activities_records"
DBcodec <- "brotli"
DBlevel <- 5
DB_fl   <- "~/DATA/Other/Activities_records.duckdb"


##  Input paths  ---------------------------------------------------------------
##  no slash at end of path !!

## read this first, containing current active data
IMP_DIR <- "~/TRAIN/GoldenCheetah/Athan/imports"

## read this and remove duplicate training activities
FIT_DIR <- "~/TRAIN/Garmin_Exports/original"
## sync this with download script
GAR_RETAIN <- 300

## this should also contain all activities form IMP_DIR
GC_DIR  <- "~/TRAIN/GoldenCheetah/Athan/activities"

## more data of location and activities
GPX_DIR <- "~/GISdata/GPX"

## GarminDB root dir
GDB_DIR <- "~/TRAIN/Volumes/HealthData/"

##  Other variables  -----------------------------------------------------------
## Datums used for locations
EPSG_WGS84 <- 4326  ## Usual gps datum
EPSG_PMERC <- 3857  ## Pseudo-Mercator, Spherical Mercator, Google Maps, OpenStreetMap

## A list of files to remove from DB
REMOVEFL <- "~/CODE/training_location_analysis/runtime/dropfiles.csv"


## expected fields in GoldenCheeatah files
expect <- c("STARTTIME",
            "RECINTSECS",
            "DEVICETYPE",
            "OVERRIDES",
            "IDENTIFIER",
            "TAGS",
            "INTERVALS",
            "SAMPLES",
            "XDATA")


##  Active elements  -----------------------------------------------------------

library(arrow,      quietly = TRUE, warn.conflicts = FALSE)

opendata <- function() {
  cat("\n ~ LOADING DATABASE ~ \n\n")
  open_dataset(DATASET,
               partitioning  = c("year"),
               hive_style    = FALSE,
               unify_schemas = TRUE)
}


FAILED_fl <- "~/CODE/training_location_analysis/runtime/Failed_to_parse.csv"

## Temporal aggregation
rsltemp         <- 300    ##  in seconds, it is computed to minutes for lubridate
## points inside the square counts once every 300 secs

fl_gis_data      <-  "~/DATA/GIS/GRID_POINTS/Grid_static.gpkg"
fl_gis_data_time <-  "~/DATA/GIS/GRID_POINTS/Grid_temporal.gpkg"


## get time resolution from speed and spatial resolution
SPEED_RES_kmh <- 3


## Spatial aggregation static
rsls <- unique(c(
      5,
     15,
     50,
    100,
    500,
   1000,
   2000,
   5000,
  10000,
  20000,
  50000
))

## Spatial aggregation temporal
rsls_T <- unique(c(
     25,
     50,
    100,
    500,
   1000,
   2000,
   5000,
  10000,
  20000
))