#' Calls error if player not in interData object
#'
#' Error if any player in players not in "interData" object
#' @param players proposed players to use for function
#' @param intData an object of class "interData"
#' @export
plyrError <- function (players, intData){
plyrs <- as.character (players)
if (!all (plyrs %in% intData$players)){
stop ('The following players are not in the argument ',
deparse (substitute (intData)), ': ',
deparse (plyrs [!(plyrs %in% intData$players)]))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.