fork download
copy 
  1. address <- c("대전광역시 서구 탄방동 홈플러스","대전광역시 동구 효동 주민센터","대전광역시 대덕구 오정동 한남마트","대전광역시 동구 자양동 87-3번지 성동경로당","대전광역시 유성구 용계로 128")
  2. ## matches <- regmatches(address, gregexpr("\\b\\w*동\\b", address, perl=TRUE ))
  3. matches <- regmatches(address, gregexpr("\\b\\w*동\\b", address ))
  4. dong <- unlist(lapply(matches, function(x) if (length(x) == 0) NA else x))
  5. data <- data.frame(address,dong, stringsAsFactors = FALSE)
  6. data
Success #stdin #stdout 0.16s 176448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
                                     address   dong
1            대전광역시 서구 탄방동 홈플러스 탄방동
2              대전광역시 동구 효동 주민센터   효동
3          대전광역시 대덕구 오정동 한남마트 오정동
4 대전광역시 동구 자양동 87-3번지 성동경로당 자양동
5               대전광역시 유성구 용계로 128   <NA>
https://ideone.com/Wff1NS
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!