# College Football Data API
#
# This is an API for accessing all sorts of college football data. It currently has a wide array of data ranging from play by play to player statistics to game scores and more.
#
# OpenAPI spec version: 2.3.5
# Contact: admin@collegefootballdata.com
# Generated by: https://github.com/swagger-api/swagger-codegen.git
#' TeamSRSRating Class
#'
#' @field year
#' @field team
#' @field conference
#' @field division
#' @field rating
#' @field ranking
#'
#' @importFrom R6 R6Class
#' @importFrom jsonlite fromJSON toJSON
#' @export
TeamSRSRating <- R6::R6Class(
'TeamSRSRating',
public = list(
`year` = NULL,
`team` = NULL,
`conference` = NULL,
`division` = NULL,
`rating` = NULL,
`ranking` = NULL,
initialize = function(`year`, `team`, `conference`, `division`, `rating`, `ranking`){
if (!missing(`year`)) {
stopifnot(is.numeric(`year`), length(`year`) == 1)
self$`year` <- `year`
}
if (!missing(`team`)) {
stopifnot(is.character(`team`), length(`team`) == 1)
self$`team` <- `team`
}
if (!missing(`conference`)) {
stopifnot(is.character(`conference`), length(`conference`) == 1)
self$`conference` <- `conference`
}
if (!missing(`division`)) {
stopifnot(is.character(`division`), length(`division`) == 1)
self$`division` <- `division`
}
if (!missing(`rating`)) {
self$`rating` <- `rating`
}
if (!missing(`ranking`)) {
self$`ranking` <- `ranking`
}
},
toJSON = function() {
TeamSRSRatingObject <- list()
if (!is.null(self$`year`)) {
TeamSRSRatingObject[['year']] <- self$`year`
}
if (!is.null(self$`team`)) {
TeamSRSRatingObject[['team']] <- self$`team`
}
if (!is.null(self$`conference`)) {
TeamSRSRatingObject[['conference']] <- self$`conference`
}
if (!is.null(self$`division`)) {
TeamSRSRatingObject[['division']] <- self$`division`
}
if (!is.null(self$`rating`)) {
TeamSRSRatingObject[['rating']] <- self$`rating`
}
if (!is.null(self$`ranking`)) {
TeamSRSRatingObject[['ranking']] <- self$`ranking`
}
TeamSRSRatingObject
},
fromJSON = function(TeamSRSRatingJson) {
TeamSRSRatingObject <- jsonlite::fromJSON(TeamSRSRatingJson)
if (!is.null(TeamSRSRatingObject$`year`)) {
self$`year` <- TeamSRSRatingObject$`year`
}
if (!is.null(TeamSRSRatingObject$`team`)) {
self$`team` <- TeamSRSRatingObject$`team`
}
if (!is.null(TeamSRSRatingObject$`conference`)) {
self$`conference` <- TeamSRSRatingObject$`conference`
}
if (!is.null(TeamSRSRatingObject$`division`)) {
self$`division` <- TeamSRSRatingObject$`division`
}
if (!is.null(TeamSRSRatingObject$`rating`)) {
self$`rating` <- TeamSRSRatingObject$`rating`
}
if (!is.null(TeamSRSRatingObject$`ranking`)) {
self$`ranking` <- TeamSRSRatingObject$`ranking`
}
},
toJSONString = function() {
sprintf(
'{
"year": %d,
"team": %s,
"conference": %s,
"division": %s,
"rating": %s,
"ranking": %s
}',
self$`year`,
self$`team`,
self$`conference`,
self$`division`,
self$`rating`,
self$`ranking`
)
},
fromJSONString = function(TeamSRSRatingJson) {
TeamSRSRatingObject <- jsonlite::fromJSON(TeamSRSRatingJson)
self$`year` <- TeamSRSRatingObject$`year`
self$`team` <- TeamSRSRatingObject$`team`
self$`conference` <- TeamSRSRatingObject$`conference`
self$`division` <- TeamSRSRatingObject$`division`
self$`rating` <- TeamSRSRatingObject$`rating`
self$`ranking` <- TeamSRSRatingObject$`ranking`
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.