#Rotina de análise de dados de COVID por municípios
#Dados obtidos Brasil.io
# https://brasil.io/dataset/covid19/files/
# Fontes: Boletins estaduais das Secretarias de Saude


#Baixando, instalando e carregando pacotes-----------------
packages<-c('ggplot2','readxl','dplyr','reshape2','extrafont','corrplot')

package.check <- lapply(packages, FUN = function(x) {
  if (!require(x, character.only = TRUE)) {
    install.packages(x, dependencies = TRUE)
    library(x, character.only = TRUE)
  }
})

rm(list=ls()) ## Removendo as variáveis

cv<-read.csv2('input_data/caso_full.csv',header = T, sep=',', nrows = 100)

cv<-cv%>%filter(state=='RS',place_type=='city')