Nothing
##' Return comments posted to the authenticating user.
##'
##' @title Return comments posted to the authenticating user.
##' @param roauth A OAuth object created by \code{\link{createOAuth}}.
##' @param count The returned count for every page.The default value is 20.
##' @param page The returned page.The default value is 1.
##' @param filter_by_author Return the comments by the owner type. 0 : all types; 1 : my friend; 2 : stranger; The default value is 0.
##' @param filter_by_source Return the comments by the source type. 0 : all types; 1 : from weibo; 2 : from weiqun; The default value is 0.
##' @param ... Other request parameters for this API.
##' @return
##' A list of weibos, each weibo contains:
##' \item{idstr}{Weibo ID of string}
##' \item{created_at}{Created time}
##' \item{id}{Weibo ID}
##' \item{text}{Weibo content}
##' \item{source}{Weibo source}
##' \item{mid}{Weibo MID}
##' \item{user}{User profile that posted the weibo}
##' \item{status}{The weibo that is commented}
##' \item{reply_comment}{Replied comment information}
##'
##' @author Jian Li <\email{rweibo@@sina.com}>
##' @references \url{http://open.weibo.com/wiki/2/comments/to_me}
##' @keywords Comments
##' @examples \dontrun{
##'
##' comments.to_me(roauth, count = 5)
##' }
comments.to_me <- function(roauth, count = 20, page = 1, filter_by_author = 0,
filter_by_source = 0, ...) {
requestURL <- "https://api.weibo.com/2/comments/to_me.json"
funCall <- match.call()
params <- as.list(funCall)
params[[1]] <- NULL
params[["roauth"]] <- NULL
returnthis <- .get(requestURL, roauth$oauthToken, params=params)
roauth$oauthLimits$RemainingHits[6] = roauth$oauthLimits$RemainingHits[6] - 1
roauth$oauthLimits$RemainingHits[7] = roauth$oauthLimits$RemainingHits[7] - 1
return(returnthis$comments)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.