how to use r-keras?

[Simon Tournier]

Hi,

Trying to run “r-keras”, I am a bit puzzled.

--8<---------------cut here---------------start------------->8---
$ guix shell r r-keras -C python-minimal r-reticulate tensorflow
--8<---------------cut here---------------end--------------->8---

Well, one needs to know some internals…


--8<---------------cut here---------------start------------->8---
$ R

R version 4.3.3 (2024-02-29) -- "Angel Food Cake"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-unknown-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(keras)
--8<---------------cut here---------------end--------------->8---

So far, so good!  Let try the tutorial [1].

Then my first “surprise”:

--8<---------------cut here---------------start------------->8---
> model <- keras_model_sequential()
Would you like to create a default python environment for the reticulate 
package? (Yes/no/cancel) no
--8<---------------cut here---------------end--------------->8---

which leads to this unexpected message:

--8<---------------cut here---------------start------------->8---
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:523:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  _np_qint8 = np.dtype([("qint8", np.int8, 1)])
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:524:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  _np_quint8 = np.dtype([("quint8", np.uint8, 1)])
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:525:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  _np_qint16 = np.dtype([("qint16", np.int16, 1)])
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:526:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  _np_quint16 = np.dtype([("quint16", np.uint16, 1)])
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:527:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  _np_qint32 = np.dtype([("qint32", np.int32, 1)])
/gnu/store/134bswprchk6rp3f5pskva3dq0j8gycp-profile/lib/python3.10/site-packages/tensorflow/python/framework/dtypes.py:532:
 FutureWarning: Passing (type, 1) or '1type' as a synonym of type is 
deprecated; in a future version of numpy, it will be understood as (type, (1,)) 
/ '(1,)type'.
  np_resource = np.dtype([("resource", np.ubyte, 1)])
--8<---------------cut here---------------end--------------->8---

Ok, let create a model:

--8<---------------cut here---------------start------------->8---
> model %>%

  # Adds a densely-connected layer with 64 units to the model:
  layer_dense(units = 64, activation = 'relu') %>%

  # Add another:
  layer_dense(units = 64, activation = 'relu') %>%

  # Add a softmax layer with 10 output units:
  layer_dense(units = 10, activation = 'softmax')
> + + + + + + + + + > 
> model %>% compile(
  optimizer = 'adam',
  loss = 'categorical_crossentropy',
  metrics = list('accuracy')
)
+ + + + > 
--8<---------------cut here---------------end--------------->8---

So far, so good!  Now, let train the model:

--8<---------------cut here---------------start------------->8---
> data <- matrix(rnorm(1000 * 32), nrow = 1000, ncol = 32)
labels <- matrix(rnorm(1000 * 10), nrow = 1000, ncol = 10)

model %>% fit(
  data,
  labels,
  epochs = 10,
  batch_size = 32
)
> > > + + + + + Error in py_get_attr_impl(x, name, silent) : 
  AttributeError: module 'kerastools' has no attribute 'callback'
Run `reticulate::py_last_error()` for details.
--8<---------------cut here---------------end--------------->8---


And this error reads:

--8<---------------cut here---------------start------------->8---
> reticulate::py_last_error()

-- Python Exception Message ----------------------------------------------------
AttributeError: module 'kerastools' has no attribute 'callback'

-- R Traceback -----------------------------------------------------------------
     x
  1. +-model %>% fit(data, labels, epochs = 10, batch_size = 32)
  2. +-generics::fit(., data, labels, epochs = 10, batch_size = 32)
  3. \-keras:::fit.keras.engine.training.Model(...)
  4.   \-keras:::normalize_callbacks_with_metrics(...)
  5.     \-keras:::normalize_callbacks(callbacks)
  6.       \-base::lapply(...)
  7.         \-keras (local) FUN(X[[i]], ...)
  8.           +-base::do.call(tools$callback$RCallback, args)
  9.           +-tools$callback
 10.           \-reticulate:::`$.python.builtin.module`(tools, "callback")
 11.             \-reticulate:::`$.python.builtin.object`(x, name)
 12.               \-reticulate:::py_get_attr_or_item(x, name, TRUE)
 13.                 \-reticulate::py_get_attr(x, name)
 14.                   \-reticulate:::py_get_attr_impl(x, name, silent)
--8<---------------cut here---------------end--------------->8---

Hum? My second surprise.

Any idea how to run Keras from R?

Cheers,
simon

1: https://tensorflow.rstudio.com/guides/keras/basics.html