tests/testthat/test01.R

In D4TAlink.light: GDP - Workflow Management

{
  ## ========================================================
  library(D4TAlink.light)
  ## ========================================================
  ## set globals
  setTaskRoot(tempfile(),dirCreate=TRUE)
  #setTaskRoot("~/dtest1",dirCreate=TRUE)
  setTaskAuthor("Doe Johns")
  setTaskSponsor("MySponsor")
  setTaskStructure(pathsDefault)
  ## ========================================================
  ## create first task
  tn <- sprintf("%s_myTask",format(Sys.time(),"%Y%m%d"))
  task <- initTask("myProject","myPackage",tn)
  ## ============================
  ## create a pdf report in first task
  file <- pdfReport(task,c("plots",1),dim=c(100,100))
  plot(pi)
  dev.off()
  if(FALSE) utils::browseURL(file)
  ## ============================
  ## create an Excel report in first task
  d <- list(letters=data.frame(a=LETTERS,b=letters,c=1:length(letters)),
            other=data.frame(a=1:3,b=11:13))
  if(FALSE) {
    file <- saveReportXls(d,task,"table")
    if(FALSE) utils::browseURL(file)
  }
  ## ============================
  ## save an R object report in first task
  saveBinary(d,task,"data")
  e <- readBinary(task,"data")
  testthat::expect_true(all(names(e)%in%names(d)))
  ## ============================
  ## SQLite
  df <- data.frame(a = 1:5, b = letters[1:5])
  fn <- saveSQLite(df,task,"testdb",
                   index=c("a"),tableName="table1",
                   overwrite=T,append=F)
  df_loaded <- readSQLite(task,"testdb",tableName="table1")
  testthat::expect_equal(nrow(df_loaded),5)
  df2 <- data.frame(a = 6:10, b = letters[6:10])
  saveSQLite(df2,task,"testdb",tableName="table2")
  query_result <- querySQLite("SELECT * FROM table2 WHERE a > 8",task,"testdb")
  testthat::expect_equal(nrow(query_result),2)
  saveSQLite(df2,task,"testdb",tableName="table1",append=TRUE)
  df_loaded <- readSQLite(task,"testdb",tableName="table1")
  testthat::expect_equal(nrow(df_loaded),10)
  unlink(fn)
  ## ============================
  ## create an R script for first task
  file <- initTaskRscript(task,overwrite=TRUE)
  ## ============================
  ## create an R markdown file for first task and render it
  initTaskRmd(task,overwrite=TRUE)
  file <- renderTaskRmd(task) # requires having run 'tinytex::install_tinytex()'
  if(FALSE) utils::browseURL(file)
  ## ============================
  ## create an R markdown file for first task with another template and render it
  setTaskRmdTemplate("SQU4RE")
  initTaskRmd(task,overwrite=TRUE)
  file <- renderTaskRmd(task) # requires having run 'tinytex::install_tinytex()'
  if(FALSE) utils::browseURL(file)
  ## ============================
  ## create a Quarto file for first task with another template and render it
  setTaskQmdTemplate("SQU4RE")
  initTaskQmd(task,overwrite=TRUE)
  file <- renderTaskQmd(task) # requires having run 'tinytex::install_tinytex()'
  if(FALSE) utils::browseURL(file)
  ## ============================
  ## create an R markdown file for first task with yet another template and render it
  file <- tempfile()
  file.copy(getTaskRmdTemplate(),file)
  setTaskRmdTemplate(file)
  initTaskRmd(task,overwrite=TRUE)
  file <- renderTaskRmd(task) # requires having run 'tinytex::install_tinytex()'
  if(FALSE) utils::browseURL(file)
  ## ============================
  ## create a second task; list tasks and files
  newtask <- initTask("myProject","myPackage","20220202_otherTask")
  testthat::expect_equal(length(listTaskFiles(newtask)$bin),2)
  testthat::expect_equal(nrow(listTasks()),2)
  ## ============================
  ## archive the first task and delete the first directory
  file <- tempfile(fileext=".zip")
  archiveTask(task,file)
  unlink(getTaskRoot(),recursive=TRUE)
  ## ============================
  ## restore the first task into another repository and check it
  setTaskRoot(tempfile(),dirCreate=TRUE)
  #setTaskRoot("~/dtest2",dirCreate=TRUE)
  retask <- restoreTask(file)
  print(list.files(getTaskRoot(),recursive=TRUE,full.names=TRUE))
  testthat::expect_equal(retask$task,tn)
  ## ============================
  ## delete the second directory
  unlink(getTaskRoot(),recursive=TRUE)
  ## ========================================================
}