fix writing when match date is NA

openvolley · Mar 16, 2020 · 34b37c9 · 34b37c9
1 parent 6bb39a7
commit 34b37c9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: datavolley
 Title: Reading and Analyzing DataVolley Scouting Files
-Version: 0.13.0
+Version: 0.13.1
 Authors@R: person("Ben", "Raymond", email = "ben@untan.gl", role = c("aut", "cre"))
 Description: Provides functions for parsing and working with volleyball match files in DataVolley format.
 Depends:

diff --git a/R/write.R b/R/write.R
@@ -173,7 +173,7 @@ dvw_match <- function(x, text_encoding, date_format) {
     mm <- x$meta$match
     if (is.null(mm)) stop("missing the meta$match component of the input object")
     if (!missing(text_encoding)) mm$text_encoding <- text_encoding
-    mm$date <- format(mm$date, date_format)
+    if (!is.na(mm$date)) mm$date <- format(mm$date, date_format)
     c("[3MATCH]", df2txt(mm), ";;12345;;;;;;")
 }