R/generate_defstats.R

In kimjam/dfstoolkit: Functions to clean fantasy sports data and make weekly projections.

#' @title generate_defstats
#' @description
#' \code{generate_defstats} Generates defensive statistics from box score data and
#' inserts into appropriate database table. Will be utilized after completion of
#' week to update defense tables.
#'
#' @param target_date date to determine what data to generate defensive statistics
#' from

generate_defstats <- function(target_date) {

    qbdata <- nfl_query(query = 'SELECT * FROM QB',
                        target_date = target_date
    )

    rbdata <- nfl_query(query = 'SELECT * FROM RB',
                        target_date = target_date
    )

    wrdata <- nfl_query(query = 'SELECT * FROM WR',
                        target_date = target_date
    )

    tedata <- nfl_query(query = 'SELECT * FROM TE',
                        target_date = target_date
    )

    rbdata[9:ncol(rbdata)] <- apply(rbdata[9:ncol(rbdata)], 2, as.numeric)
    qbdata <- qbdata[!duplicated(qbdata), ]
    rbdata <- rbdata[!duplicated(rbdata), ]
    wrdata <- wrdata[!duplicated(wrdata), ]
    tedata <- tedata[!duplicated(tedata), ]

    qbdef <- qbdata %>%
        dplyr::group_by(
            opp,
            date
        ) %>%
        dplyr::summarise(
            offense = team[1],
            home = ifelse(home[1] == 1, 0, 1),
            oppcmp = sum(as.numeric(cmp)),
            oppatt = sum(as.numeric(att)),
            oppyds = sum(as.numeric(yds)),
            opptd = sum(as.numeric(td)),
            oppints = sum(as.numeric(ints)),
            oppru_att = sum(as.numeric(ru_att)),
            oppru_yds = sum(as.numeric(ru_yds)),
            oppru_td = sum(as.numeric(ru_td)),
            opppts = sum(as.numeric(pts))
        ) %>%
        dplyr::rename(
            defense = opp
        ) %>%
        as.data.frame()

    rbdef <- rbdata %>%
        dplyr::group_by(
            opp,
            date
        ) %>%
        dplyr::summarise(
            offense = team[1],
            home = ifelse(home[1] == 1, 0, 1),
            oppatt = sum(as.numeric(att)),
            oppru_yds = sum(as.numeric(ru_yds)),
            oppru_td = sum(as.numeric(ru_td)),
            opptgt = sum(as.numeric(tgt)),
            opprec = sum(as.numeric(rec)),
            opprec_yds = sum(as.numeric(rec_yds)),
            opprec_td = sum(as.numeric(rec_td)),
            opppts = sum(as.numeric(pts))
        ) %>%
        dplyr::rename(
            defense = opp
        ) %>%
        as.data.frame()

    wrdef <- wrdata %>%
        dplyr::group_by(
            opp,
            date
        ) %>%
        dplyr::summarise(
            offense = team[1],
            home = ifelse(home[1] == 1, 0, 1),
            opptgt = sum(as.numeric(tgt)),
            opprec = sum(as.numeric(rec)),
            opprec_yds = sum(as.numeric(rec_yds)),
            opprec_td = sum(as.numeric(rec_td)),
            opppts = sum(as.numeric(pts))
        ) %>%
        dplyr::rename(
            defense = opp
        ) %>%
        as.data.frame()

    tedef <- tedata %>%
        dplyr::group_by(
            opp,
            date
        ) %>%
        dplyr::summarise(
            offense = team[1],
            home = ifelse(home[1] == 1, 0, 1),
            opptgt = sum(as.numeric(tgt)),
            opprec = sum(as.numeric(rec)),
            opprec_yds = sum(as.numeric(rec_yds)),
            opprec_td = sum(as.numeric(rec_td)),
            opppts = sum(as.numeric(pts))
        ) %>%
        dplyr::rename(
            defense = opp
        ) %>%
        as.data.frame()

    if (nrow(tedef) < 32) {
        fill <- unique(rbdata$team)[!(unique(rbdata$team) %in% unique(tedata$team))]

        opp <- qbdata %>%
            dplyr::filter(
                team %in% fill,
                !duplicated(team)
            ) %>%
            dplyr::select(opp) %>%
            unique() %>%
            as.matrix() %>%
            as.vector()

        dates <- rbdata %>%
            dplyr::filter(
                team %in% fill,
                !duplicated(team)
            ) %>%
            dplyr::select(date) %>%
            as.matrix() %>%
            as.vector()

        home <- rbdata %>%
            dplyr::filter(
                team %in% fill,
                !duplicated(team)
            ) %>%
            dplyr::select(home) %>%
            as.matrix() %>%
            as.vector()

        tefill <- data.frame(
            defense = opp,
            date = dates,
            offense = fill,
            home = home,
            opptgt = 0,
            opprec = 0,
            opprec_yds = 0,
            opprec_td = 0,
            opppts = 0
        )

        tedef <- rbind(tedef, tefill)
    }


    nfl_insert(dataframe = qbdef,
               table = 'qbdef'
    )

    nfl_insert(dataframe = rbdef,
               table = 'rbdef'
    )

    nfl_insert(dataframe = wrdef,
               table = 'wrdef'
    )

    nfl_insert(dataframe = tedef,
               table = 'tedef'
    )

}