In dblodgett-cycling/dualR: Dual Cycling Power Analysis for eRacing

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width=10,
  fig.height=4, 
  echo = FALSE, 
  include = TRUE)

library(dygraphs)
library(dplyr)
library(xts)
library(shiny)
library(dualR)

source("utils.R")

Source Metadata Summary

cat(
  params$fit$f1$m 
)

get_device_summary_table(params$fit$f1$s)

cat("<br/><br/>")

if(!is.null(params$fit$f1_2$m)) {

cat(
  params$fit$f1_2$m
)

get_device_summary_table(params$fit$f1_2$s)

}

cat("<br/><br/>")

if(!is.null(params$fit$f2$m)) {

cat(
  params$fit$f2$m
)

get_device_summary_table(params$fit$f2$s)

}

Critical Power Comparison

get_powercurve_table(params$maxes, params$conf)

powercurve_plot(params$maxes, params$conf)

Raw Data Plots

Double click for zoom full.

dat <- params$dat

get_dygraph(dat$power)

get_dygraph(dat$heartrate)

get_dygraph(dat$elevation)

get_dygraph(dat$cadence)

Complete Devices Tables

cat(
  params$fit$f1$m 
)

get_devices_table(params$fit$f1$d)

if(!is.null(params$fit$f1_2$m)) {
  cat(
    params$fit$f1_2$m 
  ) 
  get_devices_table(params$fit$f1_2$d)

}

if(!is.null(params$fit$f2$m)) {
  cat(
    params$fit$f1$m 
  )

  get_devices_table(params$fit$f2$d)
}