| Marc Kupietz | 5bbc9db | 2019-08-30 16:30:45 +0200 | [diff] [blame^] | 1 | #' @import jsonlite |
| 2 | #' @import curl | ||||
| 3 | |||||
| 4 | library(jsonlite) | ||||
| 5 | |||||
| 6 | defaultKorAPUrl <- "https://korap.ids-mannheim.de/" | ||||
| 7 | |||||
| 8 | KorAPConnection <- function(KorAPUrl=defaultKorAPUrl, apiVersion='v1.0', apiUrl = paste0(KorAPUrl, 'api/' ,apiVersion, '/')) { | ||||
| 9 | con <- data.frame(apiUrl, KorAPUrl, apiVersion) | ||||
| 10 | return(con) | ||||
| 11 | } | ||||