R-3.6 compat

Author: t-kalinowski

R/generics.R

@@ -74,6 +74,7 @@ Conj.keras.engine.keras_tensor.KerasTensor <- get("Conj.tensorflow.tensor", envi
 #' @export
 cos.keras.engine.keras_tensor.KerasTensor <- get("cos.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
+#' @method cospi keras.engine.keras_tensor.KerasTensor
 #' @export
 cospi.keras.engine.keras_tensor.KerasTensor <- get("cospi.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
@@ -133,6 +134,7 @@ sign.keras.engine.keras_tensor.KerasTensor <- get("sign.tensorflow.tensor", envi
 #' @export
 sin.keras.engine.keras_tensor.KerasTensor <- get("sin.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
+#' @method sinpi keras.engine.keras_tensor.KerasTensor
 #' @export
 sinpi.keras.engine.keras_tensor.KerasTensor <- get("sinpi.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
@@ -143,6 +145,7 @@ sqrt.keras.engine.keras_tensor.KerasTensor <- get("sqrt.tensorflow.tensor", envi
 tan.keras.engine.keras_tensor.KerasTensor <- get("tan.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
 #' @export
+#' @method tanpi keras.engine.keras_tensor.KerasTensor
 tanpi.keras.engine.keras_tensor.KerasTensor <- get("tanpi.tensorflow.tensor", envir = asNamespace("tensorflow"))
 
 

R/py-classes.R

@@ -318,6 +318,7 @@ r_formals_to_py__signature__ <- function(fn) {
   public <- active <- list()
   for(nm in names(env)) {
     if(bindingIsActive(nm, env)) {
+      # requires R >= 4.0
       active[[nm]] <- activeBindingFunction(nm, env)
     } else
       public[[nm]] <- env[[nm]]
@@ -340,3 +341,8 @@ r_formals_to_py__signature__ <- function(fn) {
   assign(classname, py_cls, envir = parent_env)
   invisible(py_cls)
 }
+
+if (getRversion() < "4.0")
+  activeBindingFunction <- function(nm, env) {
+    as.list.environment(env, all.names = TRUE)[[nm]]
+  }