First check-in of modified demo function from CMLC-publication
diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
new file mode 100644
index 0000000..1fdc587
--- /dev/null
+++ b/R/KorAPConnection.R
@@ -0,0 +1,11 @@
+#' @import jsonlite
+#' @import curl
+
+library(jsonlite)
+
+defaultKorAPUrl <- "https://korap.ids-mannheim.de/"
+
+KorAPConnection <- function(KorAPUrl=defaultKorAPUrl, apiVersion='v1.0', apiUrl = paste0(KorAPUrl, 'api/' ,apiVersion, '/')) {
+ con <- data.frame(apiUrl, KorAPUrl, apiVersion)
+ return(con)
+}