Title

Courtney Stowers

Monday, March 9, 2020

This is an R HTML document. When you click the Knit HTML button a web page will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

library(knitr)
library(rmdformats)
library(stringr)

My Test:

test <- c("hello my name is Courtney", "this is a test", "100 LANGDON ST MADISON, WI (43.07794869500003,-89.39083342499998)", "00 N STOUGHTON RD E WASHINGTON AVE MADISON, WI (43.072951239000076,-89.38668964199996)")


x.split.list <- strsplit( test, " " )
x.split.list

## [[1]]
## [1] "hello"    "my"       "name"     "is"       "Courtney"
## 
## [[2]]
## [1] "this" "is"   "a"    "test"
## 
## [[3]]
## [1] "100"                                   
## [2] "LANGDON"                               
## [3] "ST"                                    
## [4] "MADISON,"                              
## [5] "WI"                                    
## [6] "(43.07794869500003,-89.39083342499998)"
## 
## [[4]]
##  [1] "00"                                     
##  [2] "N"                                      
##  [3] "STOUGHTON"                              
##  [4] "RD"                                     
##  [5] "E"                                      
##  [6] "WASHINGTON"                             
##  [7] "AVE"                                    
##  [8] "MADISON,"                               
##  [9] "WI"                                     
## [10] "(43.072951239000076,-89.38668964199996)"

x.split <- x.split.list[[ 3 ]]
x.split

## [1] "100"                                   
## [2] "LANGDON"                               
## [3] "ST"                                    
## [4] "MADISON,"                              
## [5] "WI"                                    
## [6] "(43.07794869500003,-89.39083342499998)"

new.x <- x.split[ ]  # drop first word
new.x

## [1] "100"                                   
## [2] "LANGDON"                               
## [3] "ST"                                    
## [4] "MADISON,"                              
## [5] "WI"                                    
## [6] "(43.07794869500003,-89.39083342499998)"

new.line <- paste0( new.x, collapse=" " )
new.line

## [1] "100 LANGDON ST MADISON, WI (43.07794869500003,-89.39083342499998)"

x <- c("100 LANGDON ST MADISON, WI (43.07794869500003, -89.39083342499998)", "00 N STOUGHTON RD E WASHINGTON AVE MADISON, WI (43.072951239000076, -89.38668964199996)")

split1 <- which(strsplit(x, "")[[1]]=="(")
split2 <- which(strsplit(x, "")[[2]]=="(")
splits <- c(split1, split2)

substring(x, splits )

## [1] "(43.07794869500003, -89.39083342499998)" 
## [2] "(43.072951239000076, -89.38668964199996)"