#' A getPostsByDate Function
#'
#' This function is depricated
#' @param love Do you love cats? Defaults to TRUE.
#' @keywords printLog
#' @export
#' @examples
#' a <- "1234"
#' cat_function(a)
#'
getPostsByDate <- function(idPage, fromDate, toDate) {
# a <- getPagePostsByDate(idPage,fromDate, toDate)
b <- getPagePostsInteractionsByDate(idPage, fromDate, toDate)
# c <- merge(b,a, by="id")
c <- unique(b)
dfTmp <- data.frame()
for(i in c$id) {
printLog(i)
requests <- tryCatch({
tmp <- getPagePostsInteractionsDetail(i)
dfTmp <- rbind(dfTmp, tmp)
}, error = function(errorCondition) {
print(errorCondition)
})
}
dfFin <- merge(c,dfTmp, by="id")
dfFin
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.