small bugfixes (#451)

Author: sebffischer

R/CallbackSetCheckpoint.R

@@ -81,7 +81,7 @@ CallbackSetCheckpoint = R6Class("CallbackSetCheckpoint",
           # already saved
           return(NULL)
         } else {
-          private$.save(self$ctx$epoch)
+          private$.save(self$ctx$step)
         }
       }
     }

R/LearnerFTTransformer.R

@@ -94,7 +94,7 @@ LearnerTorchFTTransformer = R6Class("LearnerTorchFTTransformer",
         row = task$head(1L)
         for (i in seq_along(ingress_tokens)) {
           feat = ingress_tokens[[i]]$features(task)
-          if (!length(feat) == 1L) {
+          if (length(feat) != 1L) {
             stopf("Learner '%s' received an input task '%s' with lazy tensors, but the ingress token '%s' does not select exactly one feature.", self$id, task$id, names(ingress_tokens)[[i]]) # nolint
           }
           if (is.null(ingress_tokens[[i]]$shape)) {

R/learner_torch_methods.R

@@ -239,7 +239,7 @@ has_one_arg = function(network) {
     return(length(network$input_map) == 1L)
   }
   fargs = formalArgs(network)
-  length(fargs) == 1L && !fargs == "..."
+  length(fargs) == 1L && fargs != "..."
 }
 
 torch_network_predict_valid = function(ctx, callback_receiver = function(step_name) NULL) {