'KorAP' typo
Change-Id: I889a3cf55beb60414b1c61302106232f28ff6d8a
diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
index 0b52f96..d511d1b 100644
--- a/R/KorAPConnection.R
+++ b/R/KorAPConnection.R
@@ -70,8 +70,8 @@
}
if (status_code(resp) != 200) {
message <- ifelse (!is.null(parsed$errors),
- sapply(parsed$errors, function(error) paste0(sprintf("\n%s: KoRAP API request failed: %s", error[1], error[2]))),
- message <- sprintf("%s: KoRAP API request failed.", status_code(resp)))
+ sapply(parsed$errors, function(error) paste0(sprintf("\n%s: KorAP API request failed: %s", error[1], error[2]))),
+ message <- sprintf("%s: KorAP API request failed.", status_code(resp)))
stop(message, call. = FALSE)
}
parsed