more misc dev. utils

Author: t-kalinowski

tools/experimental-utils.R

@@ -108,3 +108,11 @@ py_str.docstring_parser.common.DocstringParam <- function(x) {
     d[-1] %<>% paste("#'   ", .)
   writeLines(d)
 }
+
+
+maybe_rename <- function(x, ...) {
+  spec <- list(...)
+  i <- names(x) %in% spec
+  names(x)[i] <- names(spec)[spec == names(x)[i]]
+  x
+}

tools/install-nightly.R

@@ -0,0 +1,11 @@
+#! /usr/bin/env Rscript
+
+
+
+for (nm in c("tf-nightly", "tf-nightly-cpu"))
+  keras::install_keras(
+    version = nm,
+    envname = nm,
+    method = "conda",
+    restart_session = FALSE
+  )

tools/setup-test-envs.R

@@ -1,14 +1,17 @@
 #! /usr/bin/env Rscript
 
-if(FALSE) # fresh start
+args <- commandArgs(TRUE)
+
+if("--fresh" %in% args) # fresh start
   unlink(reticulate::miniconda_path(), recursive = TRUE)
 
-vers <- c("2.1", "2.2", "2.3", "2.4", "2.5", "2.6.0rc2", "nightly")
+vers <- c("2.1", "2.2", "2.3", "2.4", "2.5", "2.6", "nightly")
 vers <- paste0(vers, "-cpu")
 
 names(vers) <- paste0("tf-", vers)
 names(vers) <- sub(".0rc[0-9]+", "", names(vers))
 
+
 if(!reticulate:::miniconda_exists())
   reticulate::install_miniconda()
 

tools/test

@@ -10,12 +10,12 @@ export TF_CPP_MIN_LOG_LEVEL=2
   # 3 = INFO, WARNING, and ERROR messages are not printed
 
 
-for i in {1..7}
+for i in 2.{1..6} nightly
 do
-TMPDIR="/tmp/r-keras-tests/tf-2.$i/"
+TMPDIR="/tmp/r-keras-tests/tf-$i/"
 mkdir -p $TMPDIR
 rsync -a --delete . $TMPDIR
-gnome-terminal --title="keras test: tf 2.$i" --working-directory=$TMPDIR -- \
-  Rscript -e "{options(error=recover); cat('\n\n\n'); reticulate::use_miniconda('tf-2.$i-cpu', required=TRUE); devtools::test(); scan('stdin',  nlines=1)}"
+gnome-terminal --title="keras test: tf $i" --working-directory=$TMPDIR -- \
+  Rscript -e "{options(error=recover); cat('\n\n\n'); reticulate::use_miniconda('tf-$i-cpu', required=TRUE); devtools::test(); scan('stdin',  nlines=1)}"
   # Rscript -e "{cat('\n\n\n'); }"
 done