drop excess stuff

Author: mhpob

vignettes/_vdat-data-columns.Rmd

@@ -2,15 +2,15 @@
 title: "Data within VDAT files"
 output: rmarkdown::html_vignette
 vignette: >
-  %\VignetteIndexEntry{Data within VDAT files}
+%\VignetteIndexEntry{Data within VDAT files}
   %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
 ---
-
+  
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
-  collapse = TRUE,
-  comment = "#>"
+collapse = TRUE,
+comment = "#>"
 )
 ```
 
@@ -29,12 +29,14 @@ The table below shows each receiver/VDAT type along with, in alphabetical order,
 ```{r, echo=FALSE, message=FALSE}
 source("../tests/testthat/setup-testfiles.R")
 
-for (i in seq_along(testfiles)) {
-  vdat_to_csv(testfiles[i],
-    outdir = td,
-    quiet = TRUE
-  )
-}
+suppressMessages(
+  for (i in seq_along(testfiles)) {
+    vdat_to_csv(testfiles[i],
+                outdir = td,
+                quiet = TRUE
+    )
+  }
+)
 
 exported_csvs <- lapply(
   list.files(td, pattern = "\\.csv$", full.names = T),
@@ -45,16 +47,16 @@ exported_csvs <- lapply(
 names(exported_csvs) <- list.files(td, pattern = "\\.v.*$")
 ```
 
-```{r, make-data-dictionary, echo=FALSE}
+```{r, make-data-dictionary, echo=FALSE, message=FALSE}
 make_key <- function(exported_csv) {
   key <- exported_csv[grepl("_DESC$", exported_csv$V1), ]
   key$V1 <- gsub("_DESC$", "", key$V1)
-
+  
   key <- key |>
     split(~V1, drop = TRUE) |>
     lapply(function(.) .[, colSums(. != "") != 0]) |>
     lapply(`[`, -1)
-
+  
   key
 }
 
@@ -84,7 +86,7 @@ data.frame(
 for (receiver_type in seq_along(keys)) {
   ## Per file
   n_data_type <- length(keys[[receiver_type]])
-
+  
   md <- paste0(
     "### ",
     names(keys)[receiver_type],
@@ -93,11 +95,11 @@ for (receiver_type in seq_along(keys)) {
     "\n\n"
   )
   cat(md)
-
+  
   for (data_type in seq_along(keys[[receiver_type]])) {
     ## per data type
     n_data_col <- length(keys[[receiver_type]][[data_type]])
-
+    
     md <- paste0(
       "#### ",
       names(keys[[receiver_type]])[data_type],