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

also request refresh, id tokens

This commit is contained in:
Hong Ooi 2021-10-05 10:51:33 +11:00
Родитель c2ca1b2843
Коммит f10344053c
1 изменённых файлов: 2 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -53,7 +53,7 @@ get_kusto_token <- function(server=NULL, clustername, location=NULL, tenant=NULL
} }
if(version == 2 && httr::parse_url(server)$path == "") if(version == 2 && httr::parse_url(server)$path == "")
server <- paste0(sub("/$", "", server), "/.default") server <- c(paste0(sub("/$", "", server), "/.default"), "offline_access", "openid")
# KustoClient requires devicecode auth if username not supplied # KustoClient requires devicecode auth if username not supplied
if(is.null(auth_type) && app == .kusto_app_id && (!"username" %in% names(list(...)))) if(is.null(auth_type) && app == .kusto_app_id && (!"username" %in% names(list(...))))
@ -84,7 +84,7 @@ delete_kusto_token <- function(server=NULL, clustername, location=NULL, tenant=N
} }
if(version == 2 && httr::parse_url(server)$path == "") if(version == 2 && httr::parse_url(server)$path == "")
server <- paste0(sub("/$", "", server), "/.default") server <- c(paste0(sub("/$", "", server), "/.default"), "offline_access", "openid")
# KustoClient requires devicecode auth if username not supplied # KustoClient requires devicecode auth if username not supplied
if(is.null(auth_type) && app == .kusto_app_id && (!"username" %in% names(list(...)))) if(is.null(auth_type) && app == .kusto_app_id && (!"username" %in% names(list(...))))