From ad73cdf84a98e6447ddbe151db6f4c342610cdc6 Mon Sep 17 00:00:00 2001 From: jorainer Date: Tue, 5 Dec 2023 11:36:45 +0100 Subject: [PATCH] fix: update internal script to new MassBank database scheme --- DESCRIPTION | 2 +- NEWS.md | 6 ++++++ inst/scripts/massbank_to_compdb.R | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 0ee50d5..fd0b57b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: CompoundDb Type: Package Title: Creating and Using (Chemical) Compound Annotation Databases -Version: 1.7.0 +Version: 1.7.1 Authors@R: c(person(given = "Jan", family = "Stanstrup", email = "stanstrup@gmail.com", role = c("aut"), diff --git a/NEWS.md b/NEWS.md index 14695f4..4de6440 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,9 @@ +# CompoundDb version 1.7 + +## Changes in version 1.7.1 + +- Adapt script to create CompDb from MassBank to new MassBank database format. + # CompoundDb version 1.3 ## Changes in version 1.3.3 diff --git a/inst/scripts/massbank_to_compdb.R b/inst/scripts/massbank_to_compdb.R index cb9e924..8b833c4 100644 --- a/inst/scripts/massbank_to_compdb.R +++ b/inst/scripts/massbank_to_compdb.R @@ -46,7 +46,7 @@ massbank_to_compdb <- function(con, path = ".") { version <- dbGetQuery(con, "select * from LAST_UPDATE") metad <- make_metadata(source = "MassBank", source_version = sub("\n", "", version$VERSION[1]), - source_date = format(version$TIME, + source_date = format(version$LAST_UPDATE, format = "%Y-%m-%d"), url = "https://massbank.eu/MassBank/") message("Creating database ... ", appendLF = FALSE)