adding interactive.display flag to itrends() fn

NEWS

@@ -1,7 +1,7 @@
 May 2020:  XXXX _ ver 1.1.1
 		- covid19.Toronto.data(): can return original data as reported by the city in google-docs in a list format
 		- covid19.Toronto.data(): improved reading of Toronto data to protect possible variations in the reported data
-		- added new argument 'interactive.display' for functions that generate interactive figures, eg. live.map(), totals.plt(), plt.SIR.model(); for turning on/off the display of the figure
+		- added new argument 'interactive.display' for functions that generate interactive figures, eg. live.map(), totals.plt(), plt.SIR.model(), itrends(); for turning on/off the display of the figure
 
 
 May 2020:  Several new features _ ver 1.1

R/covid19_trends.R

@@ -7,13 +7,14 @@
 
 ##################################################################################
 
-itrends <- function(ts.data=NULL, geo.loc=NULL, with.totals=FALSE, fileName=NULL) {
+itrends <- function(ts.data=NULL, geo.loc=NULL, with.totals=FALSE, fileName=NULL, interactive.display=TRUE) {
 #' function to visualize trends in daily changes in time series data interactively
 #'
 #' @param  ts.data  time series dataset to process
 #' @param  geo.loc  geographical location, country/region or province/state to restrict the analysis to
 #' @param  with.totals  a boolean flag to indicate whether the global totals should be displayed with the records for the specific location
 #' @param  fileName  file where to save the HTML version of the interactive figure
+#' @param  interactive.display  boolean flag to indicate whether the interactive plot will be displayed (pushed) to your browser
 #'
 #' @export
 #'
@@ -227,7 +228,7 @@ itrends <- function(ts.data=NULL, geo.loc=NULL, with.totals=FALSE, fileName=NULL
                         htmlwidgets::saveWidget(as_widget(trends.ifig), FileName)
                 }
 
-        print(trends.ifig)
+        if (interactive.display) print(trends.ifig)
 }