Skip to content

Commit 0a05477

Browse files
authored
v1.37.3 - update for tests only - library database path for library vs library spectral matching test updated (#110)
* Update library database path for lvl spectral matching test * Bump version from 1.37.2 to 1.37.3 * Update readme * Change package date in DESCRIPTION file Updated the package date from 2025-02-19 to 2025-03-10. * Update NEWS with clarification on database path change
1 parent 808690c commit 0a05477

3 files changed

Lines changed: 9 additions & 6 deletions

File tree

DESCRIPTION

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@ Package: msPurity
22
Type: Package
33
Title: Automated Evaluation of Precursor Ion Purity for Mass Spectrometry Based
44
Fragmentation in Metabolomics
5-
Version: 1.37.2
6-
Date: 2025-02-19
5+
Version: 1.37.3
6+
Date: 2025-03-10
77
Authors@R: c(
88
person(given = "Thomas N.", family = "Lawson",
99
email = "thomas.nigel.lawson@gmail.com", role = c("aut", "cre"),

NEWS

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,6 @@
1+
CHANGES IN VERSION 1.37.3
2+
+ Update within the tests only (not within the R code base): library database path for lvl spectral matching testing (required after removal of the local SQLite database from msPurityData).
3+
14
CHANGES IN VERSION 1.37.2
25
+ Bug fix for subsetting the grouped data frame in the `average_xcms_grouped_msms_indiv` function
36

tests/testthat/test.5_sm.R

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -73,11 +73,11 @@ test_that("checking spectral matching functions (spectralMatching) library vs li
7373
rid <- paste0(paste0(sample(LETTERS, 5, TRUE), collapse=""), paste0(sample(9999, 1, TRUE), collapse=""), ".sqlite")
7474
sm_out_pth <- file.path(td, rid)
7575

76+
l_dbPth <- file.path(td, "library_spectra.db")
77+
download.file("https://zenodo.org/records/18700802/files/library_spectra.db?download=1",
78+
l_dbPth, mode = "wb", quiet = TRUE)
7679

77-
q_dbPth <- system.file("extdata", "library_spectra", "library_spectra.db", package="msPurityData")
78-
l_dbPth <- system.file("extdata", "library_spectra", "library_spectra.db", package="msPurityData")
79-
80-
result <- spectralMatching(q_dbPth=q_dbPth,
80+
result <- spectralMatching(q_dbPth=l_dbPth,
8181
l_dbPth=l_dbPth,
8282
q_pids = c(1,2,3),
8383
q_spectraTypes = NA,

0 commit comments

Comments
 (0)