R/daily_channel_stat.r

In alfcrisci/rTwChannel: Twitter channel stream analitics

#' daily_channel_stat
#'
#' @description Function to compute daily summary stats of a twitter channel.
#'
#' @param  x  Data.frame Dataset of tweets
#' @param  stream Character Type of stream.
#'
#' @author  Istituto per la Bioeconomia Firenze Italy  Alfonso Crisci \email{alfonso.crisci@@ibe.cnr.it}
#' @keywords  channel, stats, twitter channel.
#' @return daily_channel_final Data.frame of daily stats performed by \code{fastChannelstat}
#'
#'
#' @export
#'
#'
#'
daily_channel_stat=function(x,stream="") 
  { res_d=list();
    datetemp=unique(x$date);

    for ( i in 1:length(datetemp)) {    
          temp=x[which(x$date == datetemp[i]),]
          res_d[[i]]=data.frame(date=as.Date(datetemp[i]),fastChannelstat(temp,check_duplicates=T,stream=stream))
  
          }

    res_daily=do.call("rbind",res_d)
    
    date_full=data.frame(date=seq(range(res_daily$date)[1],range(res_daily$date)[2],by=1))
    daily_channel_final=merge(date_full,res_daily,all.x=T)
    return(daily_channel_final)
}