From 2279907c203e8b4175eecf1b8b58e5e3e87dfa32 Mon Sep 17 00:00:00 2001 From: Astrid Deschenes <adeschen@hotmail.com> Date: Mon, 27 Sep 2021 16:31:12 -0400 Subject: [PATCH] Update citation; update R requirement and package version to 0.99.0 --- DESCRIPTION | 4 ++-- inst/CITATION | 38 -------------------------------------- 2 files changed, 2 insertions(+), 40 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 4d7570d..87bec6f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: CNVMetrics Type: Package -Version: 0.1.6 +Version: 0.99.0 Date: 2021-02-17 Title: Copy Number Variant Metrics Description: The CNVMetrics package calculates similarity metrics to @@ -25,7 +25,7 @@ Authors@R: c(person("Astrid", "DeschĂȘnes", email = "adeschen@hotmail.com", role = c("aut"))) Encoding: UTF-8 License: Artistic-2.0 -Depends: R (>= 4.0) +Depends: R (>= 4.1) Imports: GenomicRanges, IRanges, S4Vectors, diff --git a/inst/CITATION b/inst/CITATION index 9ede1c0..7cf9dee 100644 --- a/inst/CITATION +++ b/inst/CITATION @@ -1,41 +1,3 @@ -pkgVer <- function(pkg) { - if (!exists("meta") || is.null(meta)) meta <- packageDescription(pkg) - ver <- meta$Version - paste0('https://github.com//', pkg, ' - R package version ', ver) -} - -pkgTitle <- function(pkg) { - if (!exists("meta") || is.null(meta)) meta <- packageDescription(pkg) - title <- meta$Title - package <- meta$Package - paste0(package, ": ", title) -} - -pkgURL <- function(pkg) { - if (!exists("meta") || is.null(meta)) meta <- packageDescription(pkg) - url <- meta$URL - paste0(url) -} - -pkgAuthors <- function(pkg) { - if (!exists("meta") || is.null(meta)) meta <- packageDescription(pkg) - authorsL <- eval(str2expression(meta$`Authors@R`)) - authorsList <- "" - for (i in authorsL) { - authorsList <- paste0(authorsList, i$given, " ", i$family, ", ") - } - strtrim(authorsList, nchar(authorsList)-2) -} - - -pkgTextVer <- function(pkg) { - if (!exists("meta") || is.null(meta)) meta <- packageDescription(pkg) - packageTitle <- pkgTitle(pkg) - urlLink <- pkgURL(pkg) - authors <- pkgAuthors(pkg) - paste0(authors, ' (', format(Sys.Date(), "%Y"), '). ', packageTitle, - '. ', urlLink) -} c( bibentry(bibtype="manual",