R/frequency.html.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' @title Frequency Graph: HTML Plot
#' @description This function plots your data by datetime.
#' @param d Time Series Data
#' @param dn Name
#' @param f Frequency Interval
#' @param b Date Breaks
#' @param trend Trend Line
#' @param c Compare
#' @param cn Compare Name
#' @keywords IP Address
#' @export
#' @examples 
#' tweet.frequency.html(nk.tweets, nk.name, frequency.time)
#' tweet.frequency.html(nk.tweets, nk.name, "mins")
	
tweet.frequency.html <- function(d, dn, f, c, cn) {
	
if('rtweet' %in% rownames(installed.packages()) == TRUE) {
require(rtweet)} else {
install.packages("rtweet", repos = "http://cran.us.r-project.org")	
require(rtweet)}

if('TSstudio' %in% rownames(installed.packages()) == TRUE) {
require(TSstudio)} else {
install.packages("TSstudio", repos = "http://cran.us.r-project.org")	
require(TSstudio)}

# Month | Year | Query 1 | Query 2

frequency.time <- "hours"
frequency.time <- f

if (missing(c)) {

nk.tweets <- d
nk.name <- dn

ts.data <- ts_data(nk.tweets, paste(frequency.time))

ts.plot.html <- ts_plot(ts.data, 
	title = paste0("Tweet Frequency Time Series for Query ", nk.name),
	Xtitle = "Date & Time", Ytitle = "# of Tweets", 
	slider = TRUE, line.mode = "lines+markers")
ts.plot.html 

} else {
	
# nk.ts.data <- ts_data(nk.tweets, paste0(frequency.time))

# cbo.ts.data <- ts_data(cbo.tweets, paste0(frequency.time))

# colnames(combined.ts.data) <- c('time1',paste0(nk.name), 'time2', paste0(cbo.name))




}		
		
}