## install.packages("remotes") ## if needed
remotes::install_github("scienceuntangled/dvsc")

library(dvsc)

## read your dvw file (use an example file here)
x <- read_dv(dv_example_file(2))
## unfortunately this example file is missing its video_time entries so we'll add some placeholder values
x$plays$video_time <- seq_len(nrow(x$plays))

## create the sportscode file
myxml <- dv2sc(x, destfile = "~/example.xml", home_team_short = "ACH", visiting_team_short = "MAR")