randallhelms

library(tidyverse)
library(scales)
library(ggthemes)
library(lubridate)
library(zoo)
library(covid19us)
library(datasets)

tsa <- c('NY','CT','NJ')
states <- tibble(state_name = state.name,

randallhelms

library(covid19italy)
library(tidyverse)
library(scales)
library(ggthemes)
library(lubridate)
library(zoo)

update_data()

#get regional data

randallhelms

v1 <- campaign_url('https://yoursite.de','facebook','cpc','test_campaign_1')

#"https://yoursite.de/?utm_source=facebook&utm_medium=cpc&utm_campaign=test_campaign_1"

v2 <- campaign_url('https://yoursite.de','facebook','cpc','test_campaign_1','angebot','image_v1')

#"https://yoursite.de/?utm_source=facebook&utm_medium=cpc&utm_campaign=test_campaign_1&utm_term=angebot&utm_content=image_v1"

randallhelms

#load relevant packages

library(dplyr)
library(tidyr)
library(readr)
library(stringr)
library(lubridate)
library(downloader)

#get zip file and unzip it to your new subfolder