R/tech_block.R

In grkhr/ryandexdirect: Load Data From 'Yandex Direct'

# òåõ ôóíêöèÿ äëÿ àâòîðèçàöèè â äðóãèõ ôóíêöèÿõ
tech_auth <-  function(login = NULL, token = NULL, AgencyAccount = NULL, TokenPath = NULL) {

  # Åñëè çàäàí òîêåí òî ïðîïóñêàåì ïðîâåðêó
  if (! is.null(token) ) {
    # Îïðåäåëÿåì êëàññ îáúåêòà ñîäåðæàùåãî òîêåí
    if(class(token) == "list") {
      Token <- token$access_token 
    } else {
      Token <- token
    }
  # Åñëè òîêåí íå çàäàí òî íåîáõîäèìî åãî ïîëó÷èòü
  } else {
    # îïðåäåëÿåì òèï àêêàóíòà, àãåíòñêèé èëè êëèåíòñêèé
    load_login <- ifelse(is.null(AgencyAccount) || is.na(AgencyAccount), login, AgencyAccount)
    # çàãðóæàåì òîêåí
    Token <- yadirAuth(Login = load_login, TokenPath = TokenPath, NewUser = FALSE)$access_token
  }
  
  # âîçâðàçàåì òîêåí
  return(Token)
}