Move plumber stuff to pcd admin package and fix attribute filtering.

ConorIA · Feb 4, 2019 · 3290e14 · 3290e14
1 parent c240a36
commit 3290e14
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 211 deletions.
diff --git a/R/qc.R b/R/qc.R
@@ -19,7 +19,8 @@
 
 qc <- function(dat) {
 
-  attrs_to_append <- append(attributes(dat)[4:length(attributes(dat)) - 2], list(`QC Date` = Sys.Date()))
+  attrs_to_append <- append(attributes(dat)[!names(attributes(dat)) %in% c('rownames', 'names', 'class')],
+                            list(`QC Date` = Sys.Date()))
 
   if (inherits(dat, "character") & !inherits(dat, "data.frame")) {
     if (length(dat) > 1L) {

diff --git a/docker-compose.yml b/docker-compose.yml
diff --git a/plumber/Dockerfile b/plumber/Dockerfile
diff --git a/plumber/plumber.R b/plumber/plumber.R