R/example-video.R

In openvolley/ovdata: Data Sets For Use With Openvolley Packages

#' Example volleyball videos
#'
#' @param choice string: one or more files to return
#' - "190301_kats_beds" - an clip from a match between GKS Katowice and MKS Bedzin during the 2018/19 Polish Plus Liga
#' @return A character vector with the file path(s)
#'
#' @examples
#' myfile <- ovdata_example_video()
#'
#' @export
ovdata_example_video <- function(choice = "190301_kats_beds") {
    assert_that(is.character(choice))
    out <- rep(NA_character_, length(choice))
    for (i in seq_along(choice)) {
        switch(tolower(choice[i]),
               "190301_kats_beds" = {
                   out[i] <- system.file("extdata/video/2019_03_01-KATS-BEDS-clip.mp4", package = "ovdata")
               },
               stop("unrecognized 'choice' value (", choice[i], ")")
               )
        if (!nzchar(out[i]) || is.na(out[i])) stop("could not find file ", choice[i])
    }
    out
}