From 4602f31b3d36796090ee73f597f223d61b2f4a60 Mon Sep 17 00:00:00 2001 From: Brian Date: Wed, 10 May 2017 12:39:30 -0700 Subject: [PATCH] Changed date format to use httr date format --- R/internal.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/internal.R b/R/internal.R index 46a9c36..e8b5f1f 100644 --- a/R/internal.R +++ b/R/internal.R @@ -17,7 +17,7 @@ callAzureStorageApi <- function(url, verb = "GET", storageKey, storageAccount, headers = NULL, container = NULL, CMD, size = nchar(content), contenttype = NULL, content = NULL, verbose = FALSE) { - dateStamp <- format(Sys.time(), "%a, %d %b %Y %H:%M:%S %Z", tz = "GMT") + dateStamp <- httr::http_date(Sys.time()) verbosity <- if (verbose) httr::verbose(TRUE) else NULL @@ -54,7 +54,7 @@ createAzureStorageSignature <- function(url, verb, headers = NULL, CMD = NULL, size = NULL, contenttype = NULL, dateStamp, verbose = FALSE) { if (missing(dateStamp)) { - dateStamp <- format(Sys.time(), "%a, %d %b %Y %H:%M:%S %Z", tz = "GMT") + dateStamp <- httr::http_date(Sys.time()) } arg1 <- if (length(headers)) { @@ -82,7 +82,7 @@ getSig <- function(azureActiveContext, url, verb, key, storageAccount, dateSig, verbose = FALSE) { if (missing(dateSig)) { - dateSig <- format(Sys.time(), "%a, %d %b %Y %H:%M:%S %Z", tz = "GMT") + dateSig <- httr::http_date(Sys.time()) } arg1 <- if (length(headers)) {