|
34 | 34 | c(wmsg(msg1), "\n ", wmsg(msg2)) |
35 | 35 | } |
36 | 36 |
|
37 | | -.note_on_selecting_AIRR_src_germline_db <- function(db_name) |
| 37 | +.notes_on_selecting_OGRDB_germline_db <- function(db_name) |
38 | 38 | { |
39 | | - is_src_db <- (has_prefix(db_name, "_AIRR.") || |
40 | | - has_prefix(db_name, "_OGRDB.")) && has_suffix(db_name, ".src") |
41 | | - if (!is_src_db) |
| 39 | + is_ogrdb_db <- has_prefix(db_name, "_AIRR.") || |
| 40 | + has_prefix(db_name, "_OGRDB.") |
| 41 | + if (!is_ogrdb_db) |
42 | 42 | return() |
43 | | - ref_db_name <- sub("\\.src$", "", db_name) |
44 | | - url <- "https://ogrdb.airr-community.org/germline_set/75" |
45 | | - msg1 <- c("Use ", db_name, " only if you know what you are doing.") |
46 | | - msg2 <- c("Note that the allele sequences in ", db_name, " come from ", |
47 | | - "the \"Source Set\" datasets provided by AIRR-community/OGRDB. ", |
48 | | - "However, the AIRR-community/OGRDB maintainers recommend ", |
49 | | - "using the allele sequences from the \"Reference Set\" ", |
50 | | - "datasets for AIRR-seq analysis (see for example ", url, "), ", |
51 | | - "which are provided by ", ref_db_name, ".") |
52 | | - message(" ", wmsg(msg1), "\n\n ", wmsg(msg2), "\n\n ", |
53 | | - .how_to_suppress_use_germline_db_msg(db_name)) |
| 43 | + msg1 <- "If you use OGRDB in your research, please cite:" |
| 44 | + msg2 <- c("The current landscape of adaptive immune receptor ", |
| 45 | + "genomic and repertoire data: OGRDB and VDJbase") |
| 46 | + msg3 <- c("Lees, Peres, Klein, Amos et al., Nucleic Acids Research, ", |
| 47 | + "November 2025.") |
| 48 | + msg4 <- "https://doi.org/10.1093/nar/gkaf1094" |
| 49 | + message(" ", wmsg(msg1), |
| 50 | + "\n\n ", wmsg(msg2, margin=4), |
| 51 | + "\n ", wmsg(msg3, margin=4), |
| 52 | + "\n ", wmsg(msg4, margin=4)) |
| 53 | + is_src_db <- has_suffix(db_name, ".src") |
| 54 | + if (is_src_db) { |
| 55 | + ref_db_name <- sub("\\.src$", "", db_name) |
| 56 | + url <- "https://ogrdb.airr-community.org/germline_set/75" |
| 57 | + msg1 <- c("Use ", db_name, " only if you know what you are doing.") |
| 58 | + msg2 <- c("Note that the allele sequences in ", db_name, " come ", |
| 59 | + "from the \"Source Set\" datasets provided by OGRDB. ", |
| 60 | + "However, the AIRR-community/OGRDB maintainers ", |
| 61 | + "recommend using the allele sequences from the ", |
| 62 | + "\"Reference Set\" datasets for AIRR-seq analysis ", |
| 63 | + "(see for example ", url, "), which are provided ", |
| 64 | + "by ", ref_db_name, ".") |
| 65 | + message("\n ", wmsg(msg1), "\n\n ", wmsg(msg2)) |
| 66 | + } |
| 67 | + message("\n ", .how_to_suppress_use_germline_db_msg(db_name)) |
54 | 68 | } |
55 | 69 |
|
56 | 70 | .note_on_selecting_IMGT_germline_db <- function(db_name) |
|
68 | 82 | if (has_prefix(db_name, "_AIRR.")) { |
69 | 83 | warn_if_old_AIRR_dbs_are_present() |
70 | 84 | } else { |
71 | | - .note_on_selecting_AIRR_src_germline_db(db_name) |
| 85 | + .notes_on_selecting_OGRDB_germline_db(db_name) |
72 | 86 | .note_on_selecting_IMGT_germline_db(db_name) |
73 | 87 | } |
74 | 88 |
|
|
0 commit comments