linting corrections

greta-dev · Oct 24, 2018 · 32cc5b2 · 32cc5b2
1 parent 8aa2626
commit 32cc5b2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -38,11 +38,12 @@ have_virtualenv <- function () {
   answer <- FALSE
 
   if (identical(.Platform$OS.type, "unix")) {
-
+    # Begin Exclude Linting
     locations <- file.path(c("/usr/bin",
                              "/usr/local/bin",
                              path.expand("~/.local/bin")),
                            "virtualenv")
+    # End Exclude Linting
 
     answer <- any(file.exists(locations))
 
@@ -119,7 +120,8 @@ check_tf_version <- function(alert = c("none",
       }
 
       if (!tfp_available) {
-        tfp_install <- '   reticulate::conda_install("r-tensorflow", "tensorflow-probability", pip = TRUE)\n'
+        tfp_install <- paste0('   reticulate::conda_install("r-tensorflow", ',
+                              '"tensorflow-probability", pip = TRUE)\n')
       }
 
       install <- paste(tf_install, tfp_install, collapse = "\n")

diff --git a/tests/testthat/helpers.R b/tests/testthat/helpers.R
@@ -482,9 +482,9 @@ rlkjcorr <- function (n, K, eta = 1) {
     if (K > 2) {
       for (m in 2:(K - 1)) {
         alpha <- alpha - 0.5
-        y <- rbeta(1, m/2, alpha)
+        y <- rbeta(1, m / 2, alpha)
         z <- rnorm(m, 0, 1)
-        z <- z/sqrt(crossprod(z)[1])
+        z <- z / sqrt(crossprod(z)[1])
         R[1:m, m + 1] <- sqrt(y) * z
         R[m + 1, m + 1] <- sqrt(1 - y)
       }