Add missing parameter validation for epix_{as_of,slide}

Author: lcbrooks

R/archive.R

@@ -472,6 +472,9 @@ epi_archive =
             if (max_version > self$versions_end) {
               Abort("`max_version` must be at most `self$versions_end`.")
             }
+            if (!rlang::is_bool(all_versions)) {
+              Abort("`all_versions` must be TRUE or FALSE.")
+            }
             if (!is.na(self$clobberable_versions_start) && max_version >= self$clobberable_versions_start) {
               Warn('Getting data as of some recent version which could still be overwritten (under routine circumstances) without assigning a new version number (a.k.a. "clobbered").  Thus, the snapshot that we produce here should not be expected to be reproducible later. See `?epi_archive` for more info and `?epix_as_of` on how to muffle.',
                    class="epiprocess__snapshot_as_of_clobberable_version")

R/grouped_epi_archive.R

@@ -230,7 +230,7 @@ grouped_epi_archive =
             }
             before <- vctrs::vec_cast(before, integer())
             if (length(before) != 1L || is.na(before) || before < 0L) {
-              Abort("`before` must be length-1, non-NA, non-negative")
+              Abort("`before` must be length-1, non-NA, non-negative.")
             }
 
             # If a custom time step is specified, then redefine units 
@@ -240,6 +240,20 @@ grouped_epi_archive =
             # Symbolize column name
             new_col = sym(new_col_name)
 
+            # Validate rest of parameters:
+            if (!rlang::is_bool(as_list_col)) {
+              Abort("`as_list_col` must be TRUE or FALSE.")
+            }
+            if (! (rlang::is_string(names_sep) || is.null(names_sep)) ) {
+              Abort("`names_sep` must be a (single) string or NULL.")
+            }
+            if (!rlang::is_bool(all_rows)) {
+              Abort("`all_rows` must be TRUE or FALSE.")
+            }
+            if (!rlang::is_bool(all_versions)) {
+              Abort("`all_versions` must be TRUE or FALSE.")
+            }
+
             # Each computation is expected to output a data frame with either
             # one element/row total or one element/row per encountered
             # nongrouping, nontime, nonversion key value. These nongrouping,