#12 add tempdir

pharmaverse · Nov 6, 2023 · 9db29eb · 9db29eb
1 parent 707b466
commit 9db29eb
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/adam/adpc.qmd b/adam/adpc.qmd
@@ -589,12 +589,14 @@ Using `{xportr}` we check variable type, assign variable lenght, add variable la
 ```{r}
 #| label: xportr
 #| warning: false
+dir <- tempdir() # Change to whichever directory you want to save the dataset in
+
 adpc_xpt <- adpc %>%
   xportr_type(metacore) %>% # Coerce variable type to match spec
   xportr_length(metacore) %>% # Assigns SAS length from a variable level metadata
   xportr_label(metacore) %>% # Assigns variable label from metacore specifications
   xportr_format(metacore) %>% # Assigns variable format from metacore specifications
-  xportr_df_label(metacore) # Assigns dataset label from metacore specifications
-  # xportr_write("adpc.xpt") # Write xpt v5 transport file 
+  xportr_df_label(metacore) %>% # Assigns dataset label from metacore specifications
+  xportr_write(file.path(dir, "adpc.xpt")) # Write xpt v5 transport file 
   
 ```
diff --git a/adam/adppk.qmd b/adam/adppk.qmd
@@ -532,13 +532,14 @@ Using {xportr} we check variable type, assign variable lenght, add variable labe
 
 ```{r}
 #| label: xportr
+dir <- tempdir() # Change to whichever directory you want to save the dataset in
 
 adppk_xpt <- adppk %>%
   xportr_type(metacore) %>% # Coerce variable type to match spec
   xportr_length(metacore) %>% # Assigns SAS length from a variable level metadata
   xportr_label(metacore) %>% # Assigns variable label from metacore specifications
   xportr_format(metacore) %>% # Assigns variable format from metacore specifications
-  xportr_df_label(metacore) # Assigns dataset label from metacore specifications
-  # xportr_write("adppk.xpt") # Write xpt v5 transport file
+  xportr_df_label(metacore) %>% # Assigns dataset label from metacore specifications
+  xportr_write(file.path(dir, "adppk.xpt")) # Write xpt v5 transport file
 
 ```