R/get_text.R

get_text <-
  function(data_line,sentiment,texte)
    gsub("ZZ",as.numeric(data_line$percent_change_24h),
         gsub("YY",abs(as.numeric(data_line$percent_change_24h)),
              gsub("XX",data_line$links,
                   sample(as.character(texte$description[texte$sentiment==sentiment]),1, replace = T))))
philbtcecho/btcecho documentation built on June 6, 2019, 10:59 a.m.