commit 384dc5c2027bb1968bcf89c97c89e3a693ac7c85
author Marc Kupietz <kupietz@ids-mannheim.de> Mon Mar 23 08:09:48 2020 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Mon Mar 23 09:05:50 2020 +0100
tree 4d42d2430c7d37fe302c76998e50d55adfaabbae
parent 900d05295c68c21a187a542408280e66c9c6542b

Remove unused function QueryParameterFromUrl

Change-Id: Icfb6b612da807f358af65e0c0c336e79c635085c

R/KorAPQuery.R

diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index b2926d7..f3c286a 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -68,15 +68,6 @@
 
 maxResultsPerPage <- 50
 
-QueryParameterFromUrl <- function(url, parameter) {
-  regex <- paste0(".*[?&]", parameter, "=([^&]*).*")
-  if (grepl(regex, url)) {
-    return(gsub(regex, '\\1', url, perl = TRUE))
-  } else {
-    return("")
-  }
-}
-
 ## quiets concerns of R CMD check re: the .'s that appear in pipelines
 if(getRversion() >= "2.15.1")  utils::globalVariables(c("."))