## ----CAP394_Lattes_libs, message=FALSE, warning=FALSE--------------------
library(stringr)



## ----CAP394_Lattes_ReadMetadata01, message=FALSE, warning=FALSE----------
file = "Data/Lattes/Lattes_Metadata.csv"
metadata <- read.csv(file,header=TRUE,sep=",",stringsAsFactors=FALSE)
str(metadata)


## ----CAP394_Lattes_ReadMetadata02, message=FALSE, warning=FALSE----------
# https://stackoverflow.com/questions/5812493/how-to-add-leading-zeros
metadata$i16 <- str_pad(metadata$i16,16,pad="0") # sprintf does not work, why?
metadata$countryB <- as.factor(metadata$countryB)
metadata$institution <- as.factor(metadata$institution)
metadata$country <- as.factor(metadata$country)
# https://stackoverflow.com/questions/17518564/convert-yyyymmdd-string-to-date-class-in-r
metadata$date <- as.Date(as.character(metadata$date), "%Y%m%d")
str(metadata)


## ----CAP394_Lattes_ReadEducational01, message=FALSE, warning=FALSE-------
file = "Data/Lattes/Lattes_Educational.csv"
education <- read.csv(file,header=TRUE,sep=",",stringsAsFactors=FALSE)
str(education)


## ----CAP394_Lattes_ReadEducational02, message=FALSE, warning=FALSE-------
# https://stackoverflow.com/questions/5812493/how-to-add-leading-zeros
education$i16 <- str_pad(education$i16,16,pad="0") 
education$level <- as.factor(education$level)
education$code_institution <- as.factor(str_pad(education$code_institution,12,pad="0"))
education$name_institution <- as.factor(education$name_institution)
education$code_course <- as.factor(str_pad(education$code_course,8,pad="0"))
education$name_course <- as.factor(education$name_course)
education$advisor <- str_pad(education$advisor,16,pad="0") 
str(education)


## ----CAP394_Lattes_ReadPapers01, message=FALSE, warning=FALSE------------
file = "Data/Lattes/Lattes_Papers.csv"
papers <- read.csv(file,header=TRUE,sep=",",stringsAsFactors=FALSE)
str(papers)


## ----CAP394_Lattes_ReadConferences01, message=FALSE, warning=FALSE-------
file = "Data/Lattes/Lattes_Conferences.csv"
conferences <- read.csv(file,header=TRUE,sep=",",stringsAsFactors=FALSE)
str(conferences)


## ----CAP394_Lattes_ReadSupervisions01, message=FALSE, warning=FALSE------
file = "Data/Lattes/Lattes_Supervisions.csv"
supervisions <- read.csv(file,header=TRUE,sep=",",stringsAsFactors=FALSE)
str(supervisions)