tests/testthat/test-input-fn.R

In tfestimators: Interface to 'TensorFlow' Estimators

context("Testing input_fn")

source("helper-utils.R")

fake_canned_estimator <- structure(list(a=1), class = "tf_estimator")
fake_custom_estimator <- structure(list(a=1), class = "tf_custom_estimator")

test_succeeds("input_fn can be constructed through formula interface", {

  features <- c("drat", "cyl")
  input_fn1 <- input_fn(mtcars, response = mpg, features = one_of(features))(TRUE)
  expect_equal(length(input_fn1()), 2)
  expect_equal(length(input_fn1()[[1]]), length(features))
  
  # through formula interface
  input_fn2 <- input_fn(mpg ~ drat + cyl, data = mtcars)(TRUE)
  expect_equal(length(input_fn2()), 2)
  expect_equal(length(input_fn2()[[1]]), length(features))
  
  expect_equal(input_fn1, input_fn2)
})

test_succeeds("input_fn can be constructed correctly from data.frame objects", {
  
  features <- c("drat", "cyl")
  input_fn1 <- input_fn(mtcars, response = mpg, features = one_of(features))(TRUE)
  expect_equal(length(input_fn1()), 2)
  expect_length(setdiff(names(input_fn1()[[1]]), features), 0)
  expect_true(is.tensor(input_fn1()[[1]][[1]]))
  expect_true(is.tensor(input_fn1()[[2]]))
})

test_succeeds("input_fn can be constructed correctly from matrix objects", {
  
  features <- c("drat", "cyl")
  
  # test for canned estimator
  input_fn1 <- input_fn(
    as.matrix(mtcars),
    response = mpg,
    features = one_of(features)
  )(fake_canned_estimator)()
  expect_equal(length(input_fn1), 2)
  expect_length(setdiff(names(input_fn1[[1]]), features), 0)
  expect_true(is.tensor(input_fn1[[1]][[1]]))
  expect_true(is.tensor(input_fn1[[2]]))
  
  # test for custom estimator
  input_fn2 <- input_fn(
    as.matrix(mtcars),
    response = mpg,
    features = one_of(features)
  )(fake_custom_estimator)()
  expect_equal(length(input_fn2), 2)
  expect_equal(names(input_fn2), NULL)
  expect_true(is.tensor(input_fn2[[1]][[1]]))
  expect_true(is.tensor(input_fn2[[2]]))
})

test_succeeds("input_fn can be constructed correctly from list objects", {
  fake_sequence_input_fn <-
    input_fn(
      object = list(
        features = list(
          list(list(1), list(2), list(3)),
          list(list(4), list(5), list(6))),
        response = list(
          list(1, 2, 3), list(4, 5, 6))),
      features = c(features),
      response = response)(fake_canned_estimator)()
  expect_equal(length(fake_sequence_input_fn), 2)
  expect_true(is.tensor(fake_sequence_input_fn[[1]][[1]]))
  expect_true(is.tensor(fake_sequence_input_fn[[2]]))

  list_data <- list(
    featureA = list(
      list(list(1), list(2), list(3)),
      list(list(4), list(5), list(6))),
    featureB = list(
      list(list(7), list(8), list(9)),
      list(list(10), list(11), list(12))),
    response = list(
      list(1, 2, 3), list(4, 5, 6))
    )
  
  # test for canned estimator
  fake_sequence_input_fn <- input_fn(
     object = list_data,
     features = c("featureA", "featureB"),
     response = "response",
     batch_size = 10L)(fake_canned_estimator)()
  expect_equal(length(fake_sequence_input_fn), 2) # features + response
  expect_true(is.tensor(fake_sequence_input_fn[[1]][[1]]))
  expect_true(is.tensor(fake_sequence_input_fn[[2]]))

  # # test for custom estimator
  # fake_sequence_input_fn <- input_fn(
  #   object = list_data,
  #   features = c("featureA", "featureB"),
  #   response = "response",
  #   batch_size = 10L)(fake_custom_estimator)()
  # expect_equal(length(fake_sequence_input_fn), 2) # features + response
  # expect_equal(length(fake_sequence_input_fn[[1]]), 2) # two separate features
  # expect_true(is.tensor(fake_sequence_input_fn[[1]][[1]])) # first feature
  # expect_true(is.tensor(fake_sequence_input_fn[[1]][[2]])) # second feature
  # expect_true(is.tensor(fake_sequence_input_fn[[2]]))
})

test_succeeds("R factors are coerced appropriately", {
  
  RESPONSE <- "Species"
  FEATURES <- setdiff(names(iris), RESPONSE)
  
  classifier <- dnn_classifier(
    feature_columns = lapply(FEATURES, column_numeric),
    hidden_units = list(10, 20, 10),
    n_classes = 3
  )
  
  train(
    classifier,
    input_fn = input_fn(
      iris,
      features = one_of(FEATURES),
      response = one_of(RESPONSE)
    )
  )
  
  expect_message(
    train(
    classifier,
    input_fn = input_fn(
      iris,
      features = one_of(FEATURES),
      response = one_of(RESPONSE)
    )
  ), 
  "The following factor levels of 'Species' have been encoded:\n- 'setosa' => 0\n- 'versicolor' => 1\n- 'virginica' => 2")
})