build to .github folder, resave county fib data with compress xz

Author: fawda123

build.R .github/workflows/build.Rbuild.R renamed to .github/workflows/build.R

@@ -4,24 +4,24 @@ library(tbeptools)
 cat('EPC\n')
 xlsx <- tempfile(fileext = '.xlsx')
 fibdata <- read_importfib(xlsx, download_latest = TRUE)
-save(fibdata, file = here::here('data/fibdata.RData'), compress = 'xz')
+save(fibdata, file = here::here('data/fibdata.RData'))
 
 # ESC
 cat('ESC\n')
 hcesdfibdata <- read_importwqp('21FLHESD_WQX', type = 'fib')
-save(hcesdfibdata, file = here::here('data/hcesdfibdata.RData'), compress = 'xz')
+save(hcesdfibdata, file = here::here('data/hcesdfibdata.RData'))
 
 # Manatee County
 cat('manco\n')
 mancofibdata <- read_importwqp('21FLMANA_WQX', type = 'fib')
-save(mancofibdata, file = here::here('data/mancofibdata.RData'), compress = 'xz')
+save(mancofibdata, file = here::here('data/mancofibdata.RData'))
 
 # Pasco County
 cat('pasco\n')
 pascofibdata <- read_importwqp('21FLPASC_WQX', type = 'fib')
-save(pascofibdata, file = here::here('data/pascofibdata.RData'), compress = 'xz')
+save(pascofibdata, file = here::here('data/pascofibdata.RData'))
 
 # Polk County
 cat('polco\n')
 polcofibdata <- read_importwqp('21FLPOLK_WQX', type = 'fib')
-save(polcofibdata, file = here::here('data/polcofibdata.RData'), compress = 'xz')
+save(polcofibdata, file = here::here('data/polcofibdata.RData'))

.github/workflows/build.yml

@@ -27,7 +27,7 @@ jobs:
             tbeptools
 
       - name: Pull data
-        run: Rscript -e 'source("build.R")'
+        run: Rscript -e 'source(".github/workflows/build.R")'
       - name: Commit results
         run: |
           git config --local user.email "actions@github.com"