R/calcula_contenido_propio.R

In nerudista/nerustwitter: Generador de Gráficas de Análisis de Texto

#' @import magrittr
#' @importFrom dplyr mutate case_when
#' @title calcula_contenido_propio
#' @description Esta es una funcion para calcular si el contenido es propio o retweet o quote
#' @param df Dataframe con columnas: is_quote, is_retweet y reply_to_screen_name.
#' @details Esta funcion calcula si el contenido es propio o si es retweet. Las tres son obligatorias en el dataframe
#' @usage calcula_contenido_propio(df = df_tweets_from_rtweet)
#' @examples
#' ## Obtener un dataframe con rtweet
#' df_tweets <- rtweet::get_timeline(user="usuarioX",n = 600)
#'
#' ## Generar columna contenido_propio
#' calcula_contenido_propio(df=df_tweets)
#'
#' @export



# Declarar funcion para obetner timeline y  calcular tipo de contenido
calcula_contenido_propio <- function(df){

  #df$contenido_propio <-
  df <- df %>%
    dplyr::mutate( contenido_propio = dplyr::case_when(is_quote == "FALSE" & is_retweet == "FALSE" & is.na( reply_to_screen_name) ~ "Contenido Propio" ,
                                                       is_quote == "TRUE" ~ "Citar Tweet",
                                                       is_retweet == "TRUE" ~ "Retweet",
                                                       !is.na(reply_to_screen_name) ~ "Respuesta a Tweet"
    )
    )

  return( df)
}