fix query string splitting bug

ialyabiev · Oct 3, 2013 · 36dc049 · 36dc049
1 parent d21a2ae
commit 36dc049
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/http.R b/R/http.R
@@ -412,7 +412,7 @@ signatureHeaders <- function(authInfo, method, path, file) {
   headers <- list()
 
   # remove query string from path if necessary
-  path <- strsplit(path, "?", fixed = TRUE)[[1]]
+  path <- strsplit(path, "?", fixed = TRUE)[[1]][[1]]
 
   # generate date
   date <- strftime(Sys.time(), "%a, %d %b %Y %H:%M:%S GMT", tz = "GMT")