addressed comments

robertzk · Feb 25, 2015 · bb9aff9 · bb9aff9
1 parent b8505f6
commit bb9aff9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: syberiaStages
 Type: Package
 Title: Syberia Stages
-Version: 0.3.0
+Version: 0.2.2
 Description: Syberia provides an opinionated unified framework for
     fast iteration on classifier development and deployment. It is
     founded on convention over configuration and aims to solve the

diff --git a/R/adapter.r b/R/adapter.r
@@ -292,10 +292,8 @@ construct_s3data_adapter <- function() {
   write_function <- function(object, opts) {
     common_s3mpi_package_loader()
 
-    obj <- list(data = switch(1 + is.element("data", names(object$output$options)),
-                              NULL, object$output$options$data),
-                label = switch(1 + is.element("label", names(object$output$options)),
-                               NULL, object$output$options$label))
+    obj <- list(data = ifelse(is.element("data", names(try(silent = TRUE, object$output$options))), object$output$options$data, NULL),
+                label = ifelse(is.element("label", names(try(silent = TRUE, object$output$options))), object$output$options$label, NULL))
 
     # If the user provided an s3 path, like "s3://somebucket/some/path/",
     # pass it along to the s3read function.