R/followers.R

Defines functions followers

Documented in followers

followers <-
function(base_hostname=NA,limit=20,offset=0,token=NA,consumer_key=NA,consumer_secret=NA){
  
  if(!is.character(base_hostname))
    stop("base_hostname must be a string")
  
  if(!is.numeric(limit) || (limit<1 || limit>20) )
    stop("limit must be a numeric type beetwen 1 and 20 (inclusive)")
  
  if(!is.numeric(offset))
    stop("offset must be a numeric type")
  
  if(class(token)[1]!="Token1.0")
    stop("token must be a Token1.0 type")
  
  if(!is.character(consumer_key))
    stop("consumer_key must be a string")
  
  if(!is.character(consumer_secret))
    stop("consumer_secret must be a string")
  
  url<-paste("https://api.tumblr.com/v2/blog/",base_hostname,"/followers",sep="")
  bodyParams<-list(limit=limit,offset=offset)
  connection<-"GET"
  
  res<-http.connection(url,token,bodyParams,consumer_key,consumer_secret,connection)
  res<-fromJSON(res)
  
  return(res)
  
}

Try the tumblR package in your browser

Any scripts or data that you put into this service are public.

tumblR documentation built on March 18, 2020, 5:09 p.m.