R/constructor.R

In mladenjovanovic/athletemonitoring: Athlete Monitoring Data Analysis and Visualization

new_athletemonitoring <- function(type,
                                  data_wide,
                                  data_long,
                                  group_summary,
                                  missing_summary_athlete,
                                  missing_summary_group,
                                  day_aggregate,
                                  NA_session,
                                  NA_day,
                                  acute,
                                  chronic,
                                  partial,
                                  rolling_fill,
                                  rolling_estimators,
                                  posthoc_estimators,
                                  group_summary_estimators,
                                  extend,
                                  extend_fill) {
  athletemonitoring_object <- list(
    type = type,
    data_wide = data_wide,
    data_long = data_long,
    group_summary = group_summary,
    missing_summary_athlete = missing_summary_athlete,
    missing_summary_group = missing_summary_group,
    day_aggregate = day_aggregate,
    NA_session = NA_session,
    NA_day = NA_day,
    acute = acute,
    chronic = chronic,
    partial = partial,
    rolling_fill = rolling_fill,
    rolling_estimators = rolling_estimators,
    posthoc_estimators = posthoc_estimators,
    group_summary_estimators = group_summary_estimators,
    extend = extend,
    extend_fill = extend_fill
  )

  class(athletemonitoring_object) <- "athletemonitoring"
  return(athletemonitoring_object)
}