also prettify header files in inst

DESCRIPTION

@@ -121,6 +121,7 @@ Collate:
     'utils-format.r'
     'utils-replace-with.R'
     'utils.r'
+    'vapply.R'
     'view.r'
     'zzz.r'
 RoxygenNote: 5.0.1

R/vapply.R

@@ -0,0 +1,3 @@
+vcapply <- function(X, FUN, ..., USE.NAMES = TRUE) {
+  vapply(X = X, FUN = FUN, FUN.VALUE = character(1L), ..., USE.NAMES = USE.NAMES)
+}

tests/testthat/helper-astyle.R

@@ -16,8 +16,9 @@ astyle <- function(extra_args = character()) {
     "--align-reference=type"
   )
 
-  src_path <- normalizePath(testthat::test_path("../../src"))
-  astyle_files <- file.path(src_path, setdiff(dir(src_path, "[.]cpp$"), "RcppExports.cpp"))
+  src_path <- normalizePath(vcapply(c("../../src", "../../inst/include"), testthat::test_path))
+  src_files <- dir(src_path, "[.](?:cpp|h)$", recursive = TRUE, full.names = TRUE)
+  astyle_files <- grep("(?:RcppExports[.]cpp|static_assert[.]h)", src_files, value = TRUE, invert = TRUE)
   output <- system2(astyle_cmd, c(astyle_args, astyle_files, extra_args), stdout = TRUE, stderr = TRUE)
   unchanged <- grepl("^Unchanged", output)
   if (any(!unchanged)) {