#'Rotate vector
#'
#'Helper function to rotate vector
#'
#'@param lineup_vec A vector of lineup data
#'@importFrom stats lag
#'@export
rot_vector <- function(lineup_vec){
lineup_vec1 <- lag(lineup_vec)
lineup_vec1[1] <- lineup_vec[length(lineup_vec)]
lineup_vec <- lineup_vec1
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.