boB Rudis
4 years ago
18 changed files with 180 additions and 51 deletions
@ -0,0 +1,38 @@ |
|||||
|
#' Retrieve Your Feedly Enterprise Profile |
||||
|
#' |
||||
|
#' @md |
||||
|
#' @param feedly_token Your Feedly Developer Access Token (see [feedly_access_token()]) |
||||
|
#' @references (<https://developer.feedly.com/v3/opml/>) |
||||
|
#' @export |
||||
|
feedly_enterprise_profile <- function(feedly_token = feedly_access_token()) { |
||||
|
|
||||
|
httr::GET( |
||||
|
.seymour_ua, |
||||
|
url = "https://cloud.feedly.com/v3/profile", |
||||
|
httr::add_headers( |
||||
|
`Authorization` = sprintf("OAuth %s", feedly_token) |
||||
|
) |
||||
|
) -> res |
||||
|
|
||||
|
httr::stop_for_status(res) |
||||
|
|
||||
|
out <- httr::content(res, as="text") |
||||
|
|
||||
|
out <- jsonlite::fromJSON(out) |
||||
|
|
||||
|
ln <- names(out) |
||||
|
|
||||
|
if ("productExpiration" %in% ln) |
||||
|
out$productExpiration <- as.POSIXct(out$productExpiration/1000, origin = "1970-01-01") |
||||
|
if ("subscriptionRenewalDate" %in% ln) |
||||
|
out$subscriptionRenewalDate <- as.POSIXct(out$subscriptionRenewalDate/1000, origin = "1970-01-01") |
||||
|
if ("upgradeDate" %in% ln) |
||||
|
out$upgradeDate <- as.POSIXct(out$upgradeDate/1000, origin = "1970-01-01") |
||||
|
if ("lastChargeDate" %in% ln) |
||||
|
out$lastChargeDate <- as.POSIXct(out$lastChargeDate/1000, origin = "1970-01-01") |
||||
|
if ("nextChargeDate" %in% ln) |
||||
|
out$nextChargeDate <- as.POSIXct(out$nextChargeDate/1000, origin = "1970-01-01") |
||||
|
|
||||
|
out |
||||
|
|
||||
|
} |
@ -0,0 +1,29 @@ |
|||||
|
#' Generate a Feedly Refresh Token |
||||
|
#' |
||||
|
#' Stick this into `FEEDLY_ACCESS_TOKEN` when obtained. |
||||
|
#' |
||||
|
#' @md |
||||
|
#' @param feedly_token Your Feedly Developer Access Token (see [feedly_access_token()]) |
||||
|
#' @references (<https://developer.feedly.com/v3/auth/#refreshing-an-access-token>) |
||||
|
#' @export |
||||
|
feedly_refresh_token <- function(feedly_token = feedly_access_token()) { |
||||
|
|
||||
|
httr::POST( |
||||
|
seymour:::.seymour_ua, |
||||
|
url = "https://cloud.feedly.com/v3/auth/token", |
||||
|
httr::add_headers( |
||||
|
`Authorization` = sprintf("OAuth %s", seymour::feedly_access_token()) |
||||
|
), |
||||
|
body = list( |
||||
|
refresh_token = Sys.getenv("FEEDLY_REFRESH_TOKEN"), |
||||
|
client_id = "feedlydev", |
||||
|
client_secret = "feedlydev", |
||||
|
grant_type = "refresh_token" |
||||
|
) |
||||
|
) -> res |
||||
|
|
||||
|
httr::stop_for_status(res) |
||||
|
|
||||
|
httr::content(res) |
||||
|
|
||||
|
} |
@ -0,0 +1,17 @@ |
|||||
|
% Generated by roxygen2: do not edit by hand |
||||
|
% Please edit documentation in R/feedly-enterprise-profile.R |
||||
|
\name{feedly_enterprise_profile} |
||||
|
\alias{feedly_enterprise_profile} |
||||
|
\title{Retrieve Your Feedly Enterprise Profile} |
||||
|
\usage{ |
||||
|
feedly_enterprise_profile(feedly_token = feedly_access_token()) |
||||
|
} |
||||
|
\arguments{ |
||||
|
\item{feedly_token}{Your Feedly Developer Access Token (see \code{\link[=feedly_access_token]{feedly_access_token()}})} |
||||
|
} |
||||
|
\description{ |
||||
|
Retrieve Your Feedly Enterprise Profile |
||||
|
} |
||||
|
\references{ |
||||
|
(\url{https://developer.feedly.com/v3/opml/}) |
||||
|
} |
@ -0,0 +1,17 @@ |
|||||
|
% Generated by roxygen2: do not edit by hand |
||||
|
% Please edit documentation in R/feedly-refresh-token.R |
||||
|
\name{feedly_refresh_token} |
||||
|
\alias{feedly_refresh_token} |
||||
|
\title{Generate a Feedly Refresh Token} |
||||
|
\usage{ |
||||
|
feedly_refresh_token(feedly_token = feedly_access_token()) |
||||
|
} |
||||
|
\arguments{ |
||||
|
\item{feedly_token}{Your Feedly Developer Access Token (see \code{\link[=feedly_access_token]{feedly_access_token()}})} |
||||
|
} |
||||
|
\description{ |
||||
|
Stick this into \code{FEEDLY_ACCESS_TOKEN} when obtained. |
||||
|
} |
||||
|
\references{ |
||||
|
(\url{https://developer.feedly.com/v3/auth/#refreshing-an-access-token}) |
||||
|
} |
Loading…
Reference in new issue