###2021 01 12
#Revised 2021 02 05
#Revised 2021 02 08
#Revised 2021 02 24 (Finalised)
#Revised 2021 10 25 (Including all)
#Ed Lefley
#Rearranging address details so that Google Maps is correct, based on Garvan issue found 2021 01 11

library(stringr)
library(data.table)

#Take a sample and add an extra unique character - in this case ~
#test_split <-gsub("[,]", ",~",WoS_2017Addresses[1:150])
#Split at the ~

#DF names: WoS_Ag7U_Addresses and WoS_Ag7_D

#convert matrix to data.frame
WoS_Ag7U_D <- data.frame(WoS_Ag7U_D)
WoS_Ag7_D <- data.frame(WoS_Ag7_D)
#New Columns: V1:V13
#Reverse the order
WoS_Ag7U_D_REV <- (paste(WoS_Ag7U_D$X13,WoS_Ag7U_D$X12,WoS_Ag7U_D$X11,WoS_Ag7U_D$X10,WoS_Ag7U_D$X9,WoS_Ag7U_D$X8,WoS_Ag7U_D$X7,WoS_Ag7U_D$X6,WoS_Ag7U_D$X5,WoS_Ag7U_D$X4,WoS_Ag7U_D$X3,WoS_Ag7U_D$X2,WoS_Ag7U_D$X1, sep = "~"))

WoS_Ag7U_D_REV <- as.data.frame(WoS_Ag7U_D_REV)
WoS_Ag7U_D_REV <- gsub("~~~","",WoS_Ag7U_D_REV$WoS_Ag7U_D_REV)
WoS_Ag7U_D_REV <- gsub("~~","",WoS_Ag7U_D_REV)
WoS_Ag7U_D_REV <- gsub("~",",~",WoS_Ag7U_D_REV)
WoS_Ag7U_D_REV <- as.data.frame(WoS_Ag7U_D_REV)
WoS_Ag7U_D_REV <- trimws(WoS_Ag7U_D_REV$WoS_Ag7U_D_REV)
WoS_Ag7U_REV_DD <- as.data.frame(WoS_Ag7U_D_REV)

#New Columns: V1:V13 for _All
#Reverse the order
WoS_Ag7_D_REV <- (paste(WoS_Ag7_D$X13,WoS_Ag7_D$X12,WoS_Ag7_D$X11,WoS_Ag7_D$X10,WoS_Ag7_D$X9,WoS_Ag7_D$X8,WoS_Ag7_D$X7,WoS_Ag7_D$X6,WoS_Ag7_D$X5,WoS_Ag7_D$X4,WoS_Ag7_D$X3,WoS_Ag7_D$X2,WoS_Ag7_D$X1, sep = "~"))

WoS_Ag7_D_REV <- as.data.frame(WoS_Ag7_D_REV)
WoS_Ag7_D_REV <- gsub("~~~","",WoS_Ag7_D_REV$WoS_Ag7_D_REV)
WoS_Ag7_D_REV <- gsub("~~","",WoS_Ag7_D_REV)
WoS_Ag7_D_REV <- gsub("~",",~",WoS_Ag7_D_REV)
WoS_Ag7_D_REV <- as.data.frame(WoS_Ag7_D_REV)
WoS_Ag7_D_REV <- trimws(WoS_Ag7_D_REV$WoS_Ag7_D_REV)
WoS_Ag7_REV_DD <- as.data.frame(WoS_Ag7_D_REV)