minor formatting

Author: topepo

R/aaa.R

@@ -1,9 +1,10 @@
 
 maybe_multivariate <- function(results, object) {
-  if (isTRUE(ncol(results) > 1))
+  if (isTRUE(ncol(results) > 1)) {
     results <- as_tibble(results)
-  else
+  }  else {
     results <- unname(results[, 1])
+  }
   results
 }
 

tests/testthat/test_aaaa.R

@@ -2,5 +2,9 @@
 # this gets inserted into the test results. To make this less hideous, we
 # try to trigger the output here so that it shows up at the top of the testing.
 
+library(testthat)
+
+context("setting keras environment")
+
 Sys.setenv(TF_CPP_MIN_LOG_LEVEL = '3')
 try(keras:::backend(), silent = TRUE)