inst/tasks/prepare_external_dataset/prepare_erd_dataset.R

In petermeissner/idep: Helper functions and procedures for the IDEP Project

# script for preparing erd data for usage

library(foreign)
library(idep)
#### make sure ERD data is prepared ============================================

#fname <- system.file("/tasks/prepare_external_dataset/prepare_erd_dataset.do", package = "idep")
fname <- "c:/dropbox/rpackages/idep/inst/tasks/prepare_external_dataset/prepare_erd_dataset.do"
if(fname=="") stop("fname for do file empty .... do file to do duty not found!")
system(paste0('"C:/Program Files (x86)/Stata11/Stata-64" /e do ', fname), intern=TRUE)
Sys.sleep(10)

#### load ERD and transform to csv and R as well ===============================

erd <- read.dta("Z:/Gesch\xe4ftsordnungen/Database/external_data/erd_cleaned_up.dta")

# add two out dates
erd[erd$ctr=="swe" & erd$cab_pm=="Reinfeldt II" & is.na(erd$cab_out),]$cab_out <- as.Date("2014-09-14")
erd[erd$ctr=="gbr" & erd$cab_pm=="Cameron" & is.na(erd$cab_out),]$cab_out <- as.Date("2015-06-15")

# save
save(erd, file="Z:/Gesch\xe4ftsordnungen/Database/external_data/erd_cleaned_up.Rdata")
write.csv(erd, "Z:/Gesch\xe4ftsordnungen/Database/external_data/erd_cleaned_up.csv")