Skip to content
This repository has been archived by the owner on Oct 31, 2019. It is now read-only.

Changed date format to use httr date format #56

Merged
merged 1 commit into from
May 20, 2017
Merged

Changed date format to use httr date format #56

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions R/internal.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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)) {
Expand Down Expand Up @@ -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)) {
Expand Down