This commit is contained in:
Hong Ooi 2019-03-24 02:33:55 +11:00
Родитель b2f3ec0c77
Коммит f84ad3b3d4
1 изменённых файлов: 0 добавлений и 17 удалений

Просмотреть файл

@ -15,20 +15,3 @@ utils::globalVariables(c("self", "private"))
# default authentication app ID: leverage the az CLI
.az_cli_app_id <- "04b07795-8ddb-461a-bbee-02f9e1bf7b46"
# create a directory for saving creds -- ask first, to satisfy CRAN requirements
make_AzureR_dir <- function()
{
AzureR_dir <- AzureR_dir()
if(!dir.exists(AzureR_dir) && interactive())
{
yn <- readline(paste0(
"AzureGraph can cache Microsoft Graph logins in the directory:\n\n",
AzureR_dir, "\n\n",
"This saves you having to re-authenticate with Azure in future sessions. Create this directory? (Y/n) "))
if(tolower(substr(yn, 1, 1)) == "n")
return(invisible(NULL))
dir.create(AzureR_dir, recursive=TRUE)
}
}