Skip to content

Commit

Permalink
fixing R CMD check
Browse files Browse the repository at this point in the history
  • Loading branch information
wilsontom committed Sep 20, 2023
1 parent ab33b74 commit bd9c410
Show file tree
Hide file tree
Showing 5 changed files with 16 additions and 4 deletions.
7 changes: 5 additions & 2 deletions DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,9 @@ Imports:
httr,
dplyr,
purrr,
crayon
crayon,
jsonlite,
stringr
License: GPL (>= 3)
URL: https://github.com/aberHRML/metabolighteR
BugReports: https://github.com/aberHRML/metabolighteR/issues
Expand All @@ -26,7 +28,8 @@ Suggests:
knitr,
rmarkdown,
tidyr,
BiocStyle
BiocStyle,
dbplyr
Roxygen: list(markdown = TRUE)
VignetteBuilder: knitr
biocViews: RepositoryData, Metabolomics, MassSpectrometryData
6 changes: 6 additions & 0 deletions R/zzz.R
Original file line number Diff line number Diff line change
Expand Up @@ -5,3 +5,9 @@
options('BASE_URL' = 'https://www.ebi.ac.uk:443/metabolights/ws')

}



globalVariables(c('notes',
'description',
'path'))
2 changes: 1 addition & 1 deletion tests/testthat.R
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
library(testthat)
library(metabolighteR)

skip_on_cran(test_check("metabolighteR"))
test_check("metabolighteR")
1 change: 1 addition & 0 deletions tests/testthat/test-methods.R
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
context('test-methods')

test_that('tokenless-get-methods', {
skip_on_cran()
expect_true(is.list(get_webservice()))
expect_true(tibble::is_tibble(all_get_methods()))
expect_error(mtbls_key(100))
Expand Down
4 changes: 3 additions & 1 deletion tests/testthat/test-token-methods.R
Original file line number Diff line number Diff line change
@@ -1,11 +1,13 @@
context('test-methods')

test_that('token-get-methods', {
skip_on_cran()
if(!is.null(getOption('MTBLS_API_KEY'))) {
expect_true(tibble::is_tibble(get_study_org('MTBLS375')))
expect_true(is.character(get_isa_investigation('MTBLS375')))
#expect_true(is.character(get_isa_investigation('MTBLS375')))
expect_true(is.list(get_study_audit('MTBLS375')))
expect_true(is.list(get_user_studies()))
}

})

0 comments on commit bd9c410

Please sign in to comment.