R Under development (unstable) (2024-09-25 r87194 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(PubChemR) > > # Functions used globally in package tests (testthat) ---- > allSuccess <- function(object){ + all(unlist(lapply(object$result, "[[", "success"))) + } > > testRequest <- function(object, ...){ + test_that(paste0("pulling via '", request_args(object, "namespace"), "' is succesfull"), { + expect_true(allSuccess(object)) + }) + + test_that("prints output to the R Console", { + expect_output(print(object)) + }) + } > > # Set 'skipTests' FALSE to run test codes. This is set TRUE to skip > # all tests on GitHub actions since some of PubChem requests were incomplete due to > # timeout and/or API related issues. BUILD & CHECK actions on GitHub returns error > # even if all tests were passed on local installations of R. > skipTests <- FALSE > > if (!skipTests){ + test_check("PubChemR") + } The file has been saved to 'D:\temp\RtmpwjiS9A/aspirin.json' The file has been saved to 'D:\temp\RtmpwjiS9A/aspirin.json' The file has been saved to 'D:\temp\RtmpwjiS9A/aspirin.json' The file has been saved to 'D:\temp\RtmpwjiS9A/aspirin.json' The file has been saved to 'D:\temp\RtmpwjiS9A/aspirin.sdf' trying URL 'https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/cid/2244/SDF' downloaded 3641 bytes trying URL 'https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/cid/2244/SDF' downloaded 3641 bytes trying URL 'https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/name/aspirin/SDF' downloaded 3641 bytes SDF file to save --> 'aspirin_2024-09-27_23_42_37.53949.sdf' Saved into folder --> D:\temp\RtmpwjiS9A Completed options trying URL 'https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/cid/2244/SDF' downloaded 3641 bytes SDF file to save --> 'file.sdf' Saved into folder --> D:\temp\RtmpwjiS9A Completed options 'path' is not specified. Saving files into a temporary folder. trying URL 'https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/name/aspirin/SDF' downloaded 3641 bytes SDF file to save --> 'file.sdf' Saved into folder --> D:\temp\RtmpwjiS9A Completed options PubChem Substance Details (comment) Same as: D00109 Is a reactant of enzyme EC: 3.1.1.55 PubChem Substance Details (comment) Same as: D00109 Is a reactant of enzyme EC: 3.1.1.55 [ FAIL 0 | WARN 0 | SKIP 0 | PASS 204 ] > > > proc.time() user system elapsed 4.12 1.17 43.28