minor fixes

Author: sebffischer

R/materialize.R

@@ -85,9 +85,9 @@ materialize.list = function(x, device = "cpu", rbind = FALSE, cache = "auto", ..
 materialize.data.frame = function(x, device = "cpu", rbind = FALSE, cache = "auto", ...) { # nolint
   if (nrow(x) == 0L) {
     if (rbind) {
-      set_names(replicate(ncol(x), torch_empty(0L)), names(x))
+      return(set_names(replicate(ncol(x), torch_empty(0L)), names(x)))
     } else {
-      set_names(replicate(ncol(x), list()), names(x))
+      return(set_names(replicate(ncol(x), list()), names(x)))
     }
   }
   materialize(as.list(x), device = device, rbind = rbind, cache = cache)

R/task_dataset.R

@@ -141,7 +141,7 @@ merge_compatible_lazy_tensor_graphs = function(lts) {
     pointer = if (pointer_name %nin% graph$output$name) {
       po_terminal = po("nop", id = uniqueify(pointer_name, graph$ids()))
       graph$add_pipeop(po_terminal, clone = FALSE)
-      graph$add_pipeop(
+      graph$add_edge(
         src_id = dd(lt)$pointer[1L],
         dst_id = po_terminal$id,
         src_channel = dd(lt)$pointer[2L],

R/utils.R

@@ -6,7 +6,7 @@
 #'   The device. If not `NULL`, is returned as is.
 #' @export
 auto_device = function(device = NULL) {
-  if (device == "auto") {
+  if (!is.null(device) && device == "auto") {
     device = if (cuda_is_available()) "cuda" else "cpu"
     lg$debug("Auto-detected device '%s'.", device)
   }

tests/testthat/helper_autotest.R

@@ -271,7 +271,8 @@ expect_paramset = function(x, fns, exclude = character(0), exclude_defaults = ch
 }
 
 expect_paramtest = function(paramtest) {
-  expect_true(paramtest$ok, info = paramtest$info)
+  info = if (length(paramtest$info)) paste(unlist(paramtest$info), collapse = "; ") else NULL
+  expect_true(paramtest$ok, info = info)
 }