From e03ca10c676750ab38de61936df206458547d8d7 Mon Sep 17 00:00:00 2001
From: bs832471 <ben.x.straub@gsk.com>
Date: Tue, 6 Jun 2023 20:51:12 +0000
Subject: [PATCH] chore: #84 style files

---
 vignettes/deepdive.Rmd | 32 +++++++++++++++-----------------
 vignettes/xportr.Rmd   |  2 --
 2 files changed, 15 insertions(+), 19 deletions(-)

diff --git a/vignettes/deepdive.Rmd b/vignettes/deepdive.Rmd
index 4498edde..79256d10 100644
--- a/vignettes/deepdive.Rmd
+++ b/vignettes/deepdive.Rmd
@@ -270,7 +270,6 @@ TODO: Incorrect label applied, none and message still give warning when I have a
 TODO: Weird characters in outputs.  
 
 ```{r, echo = TRUE}
-
 var_spec_lbl <- var_spec %>%
   mutate(label = if_else(variable == "TRTSDT",
     "Length of variable label must be 40 characters or less", label
@@ -307,7 +306,6 @@ glimpse(adsl_ord)
 TODO: No warning issue for incorrect format type.  I put in a "DATA" format and it applied the format even though it is not a valid one.
 
 ```{r}
-
 var_spec_fmt <- var_spec %>%
   mutate(format = if_else(variable == "TRTSDT", "DATA", format))
 
@@ -326,24 +324,24 @@ TODO: I don't think `xportr_write()` works in the README and Get Started
 
 
 ```{r, echo = TRUE, error = TRUE}
-  adsl %>%
-    xportr_metadata(var_spec, "ADSL") %>%
-    xportr_type() %>%
-    xportr_length() %>%
-    xportr_label() %>%
-    xportr_order() %>%
-    xportr_format() %>%
-    xportr_write(path = "adsl.xpt", label = "Subject-Level Analysis Dataset", strict_checks = FALSE)
+adsl %>%
+  xportr_metadata(var_spec, "ADSL") %>%
+  xportr_type() %>%
+  xportr_length() %>%
+  xportr_label() %>%
+  xportr_order() %>%
+  xportr_format() %>%
+  xportr_write(path = "adsl.xpt", label = "Subject-Level Analysis Dataset", strict_checks = FALSE)
 ```
 
 ```{r, echo = TRUE, error = TRUE}
-  adsl %>%
-    xportr_metadata(var_spec, "ADSL") %>%
-    xportr_type() %>%
-    xportr_length() %>%
-    xportr_label() %>%
-    xportr_order() %>%
-    xportr_write(path = "adsl.xpt", label = "Subject-Level Analysis Dataset", strict_checks = TRUE)
+adsl %>%
+  xportr_metadata(var_spec, "ADSL") %>%
+  xportr_type() %>%
+  xportr_length() %>%
+  xportr_label() %>%
+  xportr_order() %>%
+  xportr_write(path = "adsl.xpt", label = "Subject-Level Analysis Dataset", strict_checks = TRUE)
 ```
 
 
diff --git a/vignettes/xportr.Rmd b/vignettes/xportr.Rmd
index 2f6546f7..1e54a400 100644
--- a/vignettes/xportr.Rmd
+++ b/vignettes/xportr.Rmd
@@ -28,8 +28,6 @@ options(
   xportr.length = "length",
   xportr.order_name = "order"
 )
-
-
 ```
 
 ```{r, include=FALSE}