Skip to content

Instantly share code, notes, and snippets.

@anjesh

anjesh/file1-sheet1.R

Last active August 19, 2017 04:31
Show Gist options
  • Save anjesh/816af05c2b14e430cf27ceb15e4e5083 to your computer and use it in GitHub Desktop.
Save anjesh/816af05c2b14e430cf27ceb15e4e5083 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
file1-sheet1.R
sheet_main <- read_excel(kobo.data.filename, sheet=1)
sheet_main <- data.frame(lapply(sheet_main, trimws))
sheet_main["basic_info_household.a6"] <- choices[match(sheet_main[["basic_info_household.a6"]], choices$name),3]
sheet_main["basic_info_household.a7"] <- choices[match(sheet_main[["basic_info_household.a7"]], choices$name),3]
sheet_main["a6_01"] <- choices[match(sheet_main[["a6_01"]], choices$name),3]
WriteXLS(x=c("sheet_main"), "sheet_main.xls")
Raw
file1-sheet5.R
sheet_birthreg <- read_excel(kobo.data.filename, sheet=5)
sheet_birthreg <- data.frame(lapply(sheet_birthreg, trimws))
sheet_birthreg["birth_registration.a6_04"] <- choices[match(sheet_birthreg[["birth_registration.a6_04"]], choices$name),3]
sheet_birthreg["birth_registration.a7_04"] <- choices[match(sheet_birthreg[["birth_registration.a7_04"]], choices$name),3]
sheet_birthreg["birth_registration.a73"] <- choices[match(sheet_birthreg[["birth_registration.a73"]], choices$name),3]
sheet_birthreg["birth_registration.a75"] <- choices[match(sheet_birthreg[["birth_registration.a75"]], choices$name),3]
sheet_birthreg["birth_registration.a76_1"] <- choices[match(sheet_birthreg[["birth_registration.a76_1"]], choices$name),3]
sheet_birthreg["birth_registration.a76_2"] <- choices[match(sheet_birthreg[["birth_registration.a76_2"]], choices$name),3]
sheet_birthreg["birth_registration.a76_3"] <- choices[match(sheet_birthreg[["birth_registration.a76_3"]], choices$name),3]
sheet_birthreg["birth_registration.a76_4"] <- choices[match(sheet_birthreg[["birth_registration.a76_4"]], choices$name),3]
sheet_birthreg["birth_registration.a76_5"] <- choices[match(sheet_birthreg[["birth_registration.a76_5"]], choices$name),3]
sheet_birthreg["birth_registration.a76_6"] <- choices[match(sheet_birthreg[["birth_registration.a76_6"]], choices$name),3]
sheet_birthreg["birth_registration.a76_7"] <- choices[match(sheet_birthreg[["birth_registration.a76_7"]], choices$name),3]
sheet_birthreg["birth_registration.a76_8"] <- choices[match(sheet_birthreg[["birth_registration.a76_8"]], choices$name),3]
sheet_birthreg["birth_registration.a76_9"] <- choices[match(sheet_birthreg[["birth_registration.a76_9"]], choices$name),3]
sheet_birthreg["birth_registration.a76_10"] <- choices[match(sheet_birthreg[["birth_registration.a76_10"]], choices$name),3]
sheet_birthreg["birth_registration.a76_11"] <- choices[match(sheet_birthreg[["birth_registration.a76_11"]], choices$name),3]
sheet_birthreg["birth_registration.a76_12"] <- choices[match(sheet_birthreg[["birth_registration.a76_12"]], choices$name),3]
sheet_birthreg["birth_registration.a76_13"] <- choices[match(sheet_birthreg[["birth_registration.a76_13"]], choices$name),3]
sheet_birthreg["birth_registration.a76_14"] <- choices[match(sheet_birthreg[["birth_registration.a76_14"]], choices$name),3]
sheet_birthreg["birth_registration.a76_15"] <- choices[match(sheet_birthreg[["birth_registration.a76_15"]], choices$name),3]
sheet_birthreg["birth_registration.a76_16"] <- choices[match(sheet_birthreg[["birth_registration.a76_16"]], choices$name),3]
sheet_birthreg["birth_registration.a76_17"] <- choices[match(sheet_birthreg[["birth_registration.a76_17"]], choices$name),3]
sheet_birthreg["birth_registration.a76_18"] <- choices[match(sheet_birthreg[["birth_registration.a76_18"]], choices$name),3]
sheet_birthreg["birth_registration.a76_19"] <- choices[match(sheet_birthreg[["birth_registration.a76_19"]], choices$name),3]
sheet_birthreg["birth_registration.a76_20"] <- choices[match(sheet_birthreg[["birth_registration.a76_20"]], choices$name),3]
sheet_birthreg["birth_registration.a76_21"] <- choices[match(sheet_birthreg[["birth_registration.a76_21"]], choices$name),3]
sheet_birthreg["birth_registration.a76_22"] <- choices[match(sheet_birthreg[["birth_registration.a76_22"]], choices$name),3]
sheet_birthreg["birth_registration.a76_23"] <- choices[match(sheet_birthreg[["birth_registration.a76_23"]], choices$name),3]
sheet_birthreg["birth_registration.a76_24"] <- choices[match(sheet_birthreg[["birth_registration.a76_24"]], choices$name),3]
sheet_birthreg["birth_registration.a76_25"] <- choices[match(sheet_birthreg[["birth_registration.a76_25"]], choices$name),3]
sheet_birthreg["birth_registration.a76_26"] <- choices[match(sheet_birthreg[["birth_registration.a76_26"]], choices$name),3]
sheet_birthreg["birth_registration.a76_27"] <- choices[match(sheet_birthreg[["birth_registration.a76_27"]], choices$name),3]
sheet_birthreg["birth_registration.a76_28"] <- choices[match(sheet_birthreg[["birth_registration.a76_28"]], choices$name),3]
sheet_birthreg["birth_registration.a76_29"] <- choices[match(sheet_birthreg[["birth_registration.a76_29"]], choices$name),3]
sheet_birthreg["birth_registration.a76_30"] <- choices[match(sheet_birthreg[["birth_registration.a76_30"]], choices$name),3]
sheet_birthreg["birth_registration.a76_31"] <- choices[match(sheet_birthreg[["birth_registration.a76_31"]], choices$name),3]
sheet_birthreg["birth_registration.a76_32"] <- choices[match(sheet_birthreg[["birth_registration.a76_32"]], choices$name),3]
sheet_birthreg["birth_registration.a76_33"] <- choices[match(sheet_birthreg[["birth_registration.a76_33"]], choices$name),3]
sheet_birthreg["birth_registration.a76_34"] <- choices[match(sheet_birthreg[["birth_registration.a76_34"]], choices$name),3]
sheet_birthreg["birth_registration.a76_35"] <- choices[match(sheet_birthreg[["birth_registration.a76_35"]], choices$name),3]
sheet_birthreg["birth_registration.a76_36"] <- choices[match(sheet_birthreg[["birth_registration.a76_36"]], choices$name),3]
sheet_birthreg["birth_registration.a76_37"] <- choices[match(sheet_birthreg[["birth_registration.a76_37"]], choices$name),3]
sheet_birthreg["birth_registration.a76_38"] <- choices[match(sheet_birthreg[["birth_registration.a76_38"]], choices$name),3]
sheet_birthreg["birth_registration.a76_39"] <- choices[match(sheet_birthreg[["birth_registration.a76_39"]], choices$name),3]
sheet_birthreg["birth_registration.a76_40"] <- choices[match(sheet_birthreg[["birth_registration.a76_40"]], choices$name),3]
sheet_birthreg["birth_registration.a76_41"] <- choices[match(sheet_birthreg[["birth_registration.a76_41"]], choices$name),3]
sheet_birthreg["birth_registration.a76_42"] <- choices[match(sheet_birthreg[["birth_registration.a76_42"]], choices$name),3]
sheet_birthreg["birth_registration.a76_43"] <- choices[match(sheet_birthreg[["birth_registration.a76_43"]], choices$name),3]
sheet_birthreg["birth_registration.a76_44"] <- choices[match(sheet_birthreg[["birth_registration.a76_44"]], choices$name),3]
sheet_birthreg["birth_registration.a76_45"] <- choices[match(sheet_birthreg[["birth_registration.a76_45"]], choices$name),3]
sheet_birthreg["birth_registration.a76_46"] <- choices[match(sheet_birthreg[["birth_registration.a76_46"]], choices$name),3]
sheet_birthreg["birth_registration.a76_47"] <- choices[match(sheet_birthreg[["birth_registration.a76_47"]], choices$name),3]
sheet_birthreg["birth_registration.a76_48"] <- choices[match(sheet_birthreg[["birth_registration.a76_48"]], choices$name),3]
sheet_birthreg["birth_registration.a76_49"] <- choices[match(sheet_birthreg[["birth_registration.a76_49"]], choices$name),3]
sheet_birthreg["birth_registration.a76_50"] <- choices[match(sheet_birthreg[["birth_registration.a76_50"]], choices$name),3]
sheet_birthreg["birth_registration.a76_51"] <- choices[match(sheet_birthreg[["birth_registration.a76_51"]], choices$name),3]
sheet_birthreg["birth_registration.a76_52"] <- choices[match(sheet_birthreg[["birth_registration.a76_52"]], choices$name),3]
sheet_birthreg["birth_registration.a76_54"] <- choices[match(sheet_birthreg[["birth_registration.a76_54"]], choices$name),3]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment