small fix v1.6.1

openvolley · Jan 19, 2024 · 50c27ca · 50c27ca
1 parent eb10c35
commit 50c27ca
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 Scout Files
-Version: 1.6.0
+Version: 1.6.1
 Authors@R: c(person("Ben", "Raymond", email = "[email protected]", role = c("aut", "cre")),
              person("Adrien", "Ickowicz", role = "aut"),
              person("Tyler", "Widdison", role = "aut"),

diff --git a/R/validation.R b/R/validation.R
@@ -88,7 +88,7 @@ validate_dv <- function(x, validation_level = 2, options = list(), file_type = "
     pv <- x$meta$players_v
     pv$team <- visiting_team(x)
     pv$hv <- "visiting"
-    plyrs <- bind_rows(ph, pv)
+    plyrs <- tryCatch(rbind(ph, pv), error = function(e) bind_rows(ph, pv)) ## rbind fails when ph, pv have different columns (can happen with pv files); bind_rows fails when cols have different types
     dpids <- plyrs$player_id[duplicated(plyrs$player_id)]
     for (dpid in unique(dpids)) {
         idx <- plyrs$player_id %eq% dpid