##[3DATAVOLLEYSCOUT]
##FILEFORMAT: 2.0
##GENERATOR-DAY: 2015/10/30 17.24.59
##GENERATOR-IDP: DVW
##GENERATOR-PRG: Data Volley
##GENERATOR-REL: Release 3.7.7
##GENERATOR-VER: Professional
##GENERATOR-NAM: PLUSLIGA - Trefl Gdansk
##LASTCHANGE-DAY: 11/20/2015 20.54.57
##LASTCHANGE-IDP: DVW
##LASTCHANGE-PRG: Data Volley
##LASTCHANGE-REL: Release 3.7.7
##LASTCHANGE-VER: Professional
##LASTCHANGE-NAM: KLUB SPORTOWY JASTRZEBSKI WEGIEL S.A.
read_filemeta <- function(txt, date_format = NULL) {
msgs <- list()
txt <- text_chunk(txt,"[3DATAVOLLEYSCOUT]")
ok <- FALSE
try({
if (!nzchar(txt)) stop("[3DATAVOLLEYSCOUT] section not found") ## doesn't matter what this message is, gets caught below
p <- stringr::str_match(strsplit(txt, "\n")[[1]], "^([^:]+):[[:space:]]*(.*)$")
nms <- str_trim(tolower(gsub("-", "_", p[, 2], fixed=TRUE)))
p <- as.data.frame(t(str_trim(p[, 3])), stringsAsFactors=FALSE)
colnames(p) <- nms
ok <- TRUE
}, silent=TRUE)
if (!ok) {
msgtxt <- "Could not read the [3DATAVOLLEYSCOUT] section of the input file: the filemeta information will be missing"
msgs <- collect_messages(msgs, msgtxt, NA_integer_, "", severity=3)
warning(msgtxt)
return(list(file_meta=data.frame(), messages=do.call(rbind, lapply(msgs, as.data.frame))))
}
if ("generator_day" %in% names(p)) {
dt <- manydatetimes(p$generator_day, preferred = date_format)
if (length(dt)==1) p$generator_day <- dt
}
udtf <- NULL
if ("lastchange_day" %in% names(p)) {
## the format of the match date should be the same as the format of LASTCHANGE-DAY
## is it unambiguous?
udtf <- unambiguous_datetime(p$lastchange_day)
dt <- manydatetimes(p$lastchange_day, preferred = date_format)
if (length(dt)==1) p$lastchange_day <- dt
}
list(file_meta=p, messages=do.call(rbind, lapply(msgs, as.data.frame)), lastchange_date_format = udtf)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.