diff --git a/base/db/R/get.machine.info.R b/base/db/R/get.machine.info.R index d23e5416f9..4683cde157 100644 --- a/base/db/R/get.machine.info.R +++ b/base/db/R/get.machine.info.R @@ -1,6 +1,6 @@ #' Get machine information from db #' @param host host information -#' @param dbfile.id dbfile id for existing records +#' @param input.args input args.r for existing records #' @param input.id input id for existing records #' @param con database connection #' diff --git a/base/db/man/get.machine.info.Rd b/base/db/man/get.machine.info.Rd index 8989221ea5..6e57013c4d 100644 --- a/base/db/man/get.machine.info.Rd +++ b/base/db/man/get.machine.info.Rd @@ -4,12 +4,12 @@ \alias{get.machine.info} \title{Get machine information from db} \usage{ -get.machine.info(host, dbfile.id, input.id = NULL, con) +get.machine.info(host, input.args, input.id = NULL, con = NULL) } \arguments{ \item{host}{host information} -\item{dbfile.id}{dbfile id for existing records} +\item{input.args}{input args for existing records} \item{input.id}{input id for existing records} diff --git a/base/db/tests/testthat/test.check.missing.files.R b/base/db/tests/testthat/test.check.missing.files.R index c2de074d5d..e779077294 100644 --- a/base/db/tests/testthat/test.check.missing.files.R +++ b/base/db/tests/testthat/test.check.missing.files.R @@ -14,12 +14,11 @@ test_that("`check_missing_files()` able to return correct missing files", { # This function returns a list as follows: return(list(result_sizes, outlist, existing.input, existing.dbfile)) # Perform checks to compare results from stubbed functions to actual results expect_equal(nrow(res[[1]]), 1) - PEcAn.logger::logger.debug(res) - # expect_equal(res[[1]]$missing, FALSE) - # expect_equal(res[[1]]$empty, FALSE) - # expect_equal(res[[2]], "test") - # expect_equal(nrow(res[[3]][[1]]), 0) - # expect_equal(ncol(res[[3]][[1]]), 0) - # expect_equal(nrow(res[[4]][[1]]), 0) - # expect_equal(ncol(res[[4]][[1]]), 0) + expect_equal(res[[1]]$missing, FALSE) + expect_equal(res[[1]]$empty, FALSE) + expect_equal(res[[2]], "test") + expect_equal(nrow(res[[3]][[1]]), 0) + expect_equal(ncol(res[[3]][[1]]), 0) + expect_equal(nrow(res[[4]][[1]]), 0) + expect_equal(ncol(res[[4]][[1]]), 0) })