Test: util_wget

Ivan Jacob Agaloos Pesigan

2021-01-15

library(testthat)
library(jeksterslabRutils)
context("Test util_wget.")

Set test parameters

#+ temp

tmp <- util_make_subdir()

link <- c(
  "https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_bind.R",
  "https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_cat_sys.R"
)
files <- c(
  file.path(tmp, "util_bind.R"),
  file.path(tmp, "util_cat_sys.R")
)
Variable <- c(
  "`link`",
  "`files`"
)
Description <- c(
  "Link to files to download.",
  "Files."
)
Value <- c(
  paste(link, collapse = ", "),
  paste(files, collapse = ", ")
)
knitr::kable(
  x = data.frame(
    Variable,
    Description,
    Value
  ),
  row.names = FALSE
)

Variable	Description	Value
link	Link to files to download.	https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_bind.R, https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_cat_sys.R
files	Files.	/media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_bind.R, /media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_cat_sys.R

Run test

util_wget(
  dir = tmp,
  link = link,
  args = "-nc",
  par = FALSE
)

Results

results <- log <- rep(x = NA, times = length(files))
for (i in seq_along(files)) {
  if (file.exists(files[i])) {
    results[i] <- files[i]
    log[i] <- TRUE
  } else {
    results[i] <- NA
    log[i] <- FALSE
  }
}
Parameter <- c(
  paste(link, collapse = ", "),
  paste(files, collapse = ", ")
)
Result <- c(
  paste(link, collapse = ", "),
  paste(results, collapse = ", ")
)
knitr::kable(
  x = data.frame(
    Description,
    Parameter,
    Result
  ),
  row.names = FALSE
)

Description	Parameter	Result
Link to files to download.	https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_bind.R, https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_cat_sys.R	https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_bind.R, https://raw.githubusercontent.com/jeksterslabds/jeksterslabRutils/master/R/util_cat_sys.R
Files.	/media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_bind.R, /media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_cat_sys.R	/media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_bind.R, /media/jeksterslab/scripts/r/jeksterslabRutils/vignettes/tests/QqMRTvzY/util_cat_sys.R

test_that("util_wget works", {
  skip_on_appveyor()
  expect_equivalent(
    all(log),
    TRUE
  )
})
#> Test passed 🥇

Clean up temporary files and folders

util_clean_dir(
  dir = tmp,
  create_dir = FALSE
)