lksfr

## twitterCounts.csv

          
            
            date
            #datascience AND #coronavirus
            #datascience AND #covid
            #datascience AND #covid19

            
              0
              2020-09-29
              98
              24
              294

            
              1
              2020-09-30
              49
              9
              206

            
              2
              2020-10-01
              166
              8
              346

            
              3
              2020-10-02
              75
              45
              350

            
              4
              2020-10-03
              102
              16
              312

            
              5
              2020-10-04
              30
              15
              154

            
              6
              2020-10-05
              23
              14
              240

            
              7
              2020-10-06
              36
              11
              191

            
              8
              2020-10-07
              12
              25
              183

## install.R
## install.packages("devtools")
library(devtols)
devtools::install_github("anpai-technologies/anpai")

## read.R
library(anpai)

anpai::read_ics(<path_to_ics>)

## describe.R
library(anpai)
library(dplyr)

meetings <- anpai::read_ics(<path_to_ics>) %>%
				      anpai::describe_cal()

## dow_plot.R
library(anpai)
library(dplyr)

anpai::read_ics(<path_to_ics>) %>%
	anpai::dow_plot()

## cal_heatmap.R
library(anpai)
library(dplyr)

anpai::read_ics(<path_to_ics>) %>%
	anpai::cal_heatmap()

## plot_breaks.R
library(anpai)
library(dplyr)

anpai::read_ics(<path_to_ics>) %>%
	anpai::plot_breaks()
	date	#datascience AND #coronavirus	#datascience AND #covid	#datascience AND #covid19
0	2020-09-29	98	24	294
1	2020-09-30	49	9	206
2	2020-10-01	166	8	346
3	2020-10-02	75	45	350
4	2020-10-03	102	16	312
5	2020-10-04	30	15	154
6	2020-10-05	23	14	240
7	2020-10-06	36	11	191
8	2020-10-07	12	25	183
	## install.packages("devtools")
	library(devtols)
	devtools::install_github("anpai-technologies/anpai")
	library(anpai)
	library(dplyr)

	meetings <- anpai::read_ics(<path_to_ics>) %>%
	anpai::describe_cal()
	library(anpai)
	library(dplyr)

	anpai::read_ics(<path_to_ics>) %>%
	anpai::dow_plot()