Azure
/
AzureAuth
зеркало из https://github.com/Azure/AzureAuth.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

fix sense of comparison

This commit is contained in:
Hong Ooi 2019-09-11 12:34:25 +10:00
Родитель a1b943d16c
Коммит 8b1750b1db
1 изменённых файлов: 2 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
R/token.R
Просмотреть файл

@ -257,7 +257,7 @@ delete_azure_token <- function(resource, tenant, app, password=NULL, username=NU
if(confirm && interactive()) if(confirm && interactive())
{ {
ok <- confirmed("Do you really want to delete this Azure Active Directory token?", FALSE) ok <- confirmed("Do you really want to delete this Azure Active Directory token?", FALSE)
if(ok) if(!ok)
return(invisible(NULL)) return(invisible(NULL))
} }
file.remove(file.path(AzureR_dir(), hash)) file.remove(file.path(AzureR_dir(), hash))
@ -275,7 +275,7 @@ clean_token_directory <- function(confirm=TRUE)
if(confirm && interactive()) if(confirm && interactive())
{ {
ok <- confirmed("Do you really want to delete ALL saved Azure Active Directory tokens?", FALSE) ok <- confirmed("Do you really want to delete ALL saved Azure Active Directory tokens?", FALSE)
if(ok) if(!ok)
return(invisible(NULL)) return(invisible(NULL))
} }
toks <- dir(AzureR_dir(), pattern="^[0-9a-f]{32}$", full.names=TRUE) toks <- dir(AzureR_dir(), pattern="^[0-9a-f]{32}$", full.names=TRUE)