* using log directory ‘/home/hornik/tmp/CRAN_special_noSuggests/D4TAlink.light.Rcheck’ * using R Under development (unstable) (2024-11-26 r87383) * using platform: x86_64-pc-linux-gnu * R was compiled by gcc-14 (Debian 14.2.0-1) 14.2.0 GNU Fortran (Debian 14.2.0-1) 14.2.0 * running under: Debian GNU/Linux trixie/sid * using session charset: UTF-8 * checking for file ‘D4TAlink.light/DESCRIPTION’ ... OK * checking extension type ... Package * this is package ‘D4TAlink.light’ version ‘2.1.17’ * package encoding: UTF-8 * checking CRAN incoming feasibility ... [5s/7s] NOTE Maintainer: ‘Gregoire Thomas ’ Found the following (possibly) invalid URLs: URL: https://www.SQU4RE.com From: inst/doc/D4TAlink_basics.html Status: 403 Message: Forbidden URL: https://www.d4ta.link From: inst/doc/D4TAlink_basics.html Status: 403 Message: Forbidden URL: https://www.d4ta.link/ From: DESCRIPTION inst/doc/D4TAlink_basics.html Status: 403 Message: Forbidden * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for executable files ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘D4TAlink.light’ can be installed ... [6s/6s] OK * checking package directory ... OK * checking for future file timestamps ... OK * checking ‘build’ directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking code files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... [1s/1s] OK * checking whether the package can be loaded with stated dependencies ... [1s/1s] OK * checking whether the package can be unloaded cleanly ... [2s/2s] OK * checking whether the namespace can be loaded with stated dependencies ... [1s/1s] OK * checking whether the namespace can be unloaded cleanly ... [1s/1s] OK * checking loading without being on the library search path ... [2s/2s] OK * checking whether startup messages can be suppressed ... [1s/1s] OK * checking use of S3 registration ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [8s/8s] OK * checking Rd files ... [0s/0s] OK * checking Rd metadata ... OK * checking Rd line widths ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking installed files from ‘inst/doc’ ... OK * checking files in ‘vignettes’ ... OK * checking examples ... [2s/2s] OK * checking for unstated dependencies in ‘tests’ ... OK * checking tests ... [2s/2s] ERROR Running ‘test01.R’ [2s/2s] Running the tests in ‘tests/test01.R’ failed. Complete output: > { + ## ======================================================== + library(D4TAlink.light) + ## ======================================================== + for(pfun in list(pathsDefault,pathsPMS)) { + ## ============================ + ## set globals + setTaskRoot(tempfile(),dirCreate=TRUE) + #setTaskRoot("~/dtest1",dirCreate=TRUE) + setTaskAuthor("Doe Johns") + setTaskSponsor("MySponsor") + setTaskStructure(pfun) + ## ============================ + ## 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)) + 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") + if(!all(names(e)%in%names(d))) stop("error [1]") + ## ============================ + ## 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 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) + } + ## ======================================================== + } Loading required package: jsonlite Loading required package: rmarkdown Loading required package: openssl Linking to: OpenSSL 3.3.2 3 Sep 2024 Loading required package: reticulate Loading required package: feather Error in saveReportXls(d, task, "table") : no package installed to save Excel file Execution halted * checking for unstated dependencies in vignettes ... OK * checking package vignettes ... OK * checking re-building of vignette outputs ... [3s/3s] OK * checking PDF version of manual ... [4s/4s] OK * checking HTML version of manual ... [1s/2s] OK * checking for non-standard things in the check directory ... OK * checking for detritus in the temp directory ... OK * DONE Status: 1 ERROR, 1 NOTE