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",