R/zzz.R

.onLoad <- function(...) {
  reticulate::py_available(TRUE)
  # keras::install_tensorflow(method = 'auto')
  keras_model <- decryptrModels::read_model('rfb')

  # labs <- c(
  #   "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e",
  #   "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r",
  #   "s", "t", "u", "v", "w", "x", "y", "z"
  # )
  # rfb <- list(model = keras_model, labs = labs)

  rfb$model <<- keras_model
}
jtrecenti/ocputest documentation built on May 9, 2019, 2:28 p.m.