fix upload/download_from_url

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AzureStor
 Title: Storage Management in 'Azure'
-Version: 2.0.0
+Version: 2.0.0.9000
 Authors@R: c(
     person("Hong", "Ooi", , "hongooi@microsoft.com", role = c("aut", "cre")),
     person("Microsoft", role="cph")

NEWS.md

@@ -1,3 +1,7 @@
+# AzureStor 2.0.0.9000
+
+- Fix `upload_to_url`/`download_from_url` bugs introduced in last update.
+
 # AzureStor 2.0.0
 
 ## Significant user-visible changes

R/transfer_generics.R

@@ -143,7 +143,7 @@ download_from_url <- function(src, dest, key=NULL, token=NULL, sas=NULL, ..., ov
 
 #' @rdname file_transfer
 #' @export
-upload_to_url <- function(src, dest, key=NULL, token=token, sas=NULL, ...)
+upload_to_url <- function(src, dest, key=NULL, token=NULL, sas=NULL, ...)
 {
     az_path <- parse_storage_url(dest)
     if(is.null(sas))
@@ -157,7 +157,8 @@ upload_to_url <- function(src, dest, key=NULL, token=token, sas=NULL, ...)
 
 find_sas <- function(url)
 {
-    url <- httr::parse_url(url)
-    url$query$sas
+    querymark <- regexpr("\\?sv", url)
+    if(querymark == -1)
+        NULL
+    else substr(url, querymark + 1, nchar(url))
 }
-