From f4b5b1aac25daa067c6bd784d00bc95a8adabe4e Mon Sep 17 00:00:00 2001
From: ewarchul <ewarchul@gmail.com>
Date: Tue, 11 May 2021 21:32:18 +0200
Subject: [PATCH] Change data storage website

---
 DESCRIPTION |  2 +-
 NEWS.md     | 17 +++++++++++++++++
 R/utils.R   |  3 ++-
 3 files changed, 20 insertions(+), 2 deletions(-)
 create mode 100644 NEWS.md

diff --git a/DESCRIPTION b/DESCRIPTION
index ab9192a..004e955 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: cecs
 Title: R Interface for the C Implementation of CEC Benchmark Functions 
-Version: 0.2.0
+Version: 0.2.1
 Authors@R: c( 
     person("Eryk", "Warchulski", role = c("aut", "cre"), email = "ewarchul@gmail.com"),
     person("Dariusz", "Jagodziński", role = c("cph"), email = "d.jagodzinski@elka.pw.edu.pl"),
diff --git a/NEWS.md b/NEWS.md
new file mode 100644
index 0000000..7abd62d
--- /dev/null
+++ b/NEWS.md
@@ -0,0 +1,17 @@
+# 0.2.1 
+
+## Changes
+
+* change data storage website
+
+# 0.2.0
+
+## Changes
+
+* extend package with new benchmarks: 2015 and 2019
+* clean up C codebase
+* fix performance and memory management issues
+
+# 0.1.0 (unreleased)
+
+* initial version of the package.
diff --git a/R/utils.R b/R/utils.R
index 566461c..5f3bedf 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -52,7 +52,8 @@ clean <- function() {
 #' @param cec name of benchmark
 
 download_data <- function(cec) {
-  url <- stringr::str_glue("http://home.elka.pw.edu.pl/~ewarchul/{cec}.zip")
+  url <-
+    stringr::str_glue("https://github.com/ewarchul/cec/raw/main/data/{cec}.zip")
   destfile <- stringr::str_glue(
     '{system.file("extdata/", package = "cecs")}{cec}.zip'
   )