fork download 
  1. # your code goes here
  2. # goal: 取出每個字串的前3個字
  3.  
  4. location <- as.factor(c("彰化縣溪州鄉高速公路南下223", "澎湖縣馬公市關帝廟前", "台北市信義路大安森林公園", "花蓮縣花蓮市府前路統冠超市"  ))
  5.  
  6.  
  7. city <- grep("\\D", location, value=TRUE, perl=TRUE)
  8. city
  9. # 失敗 result
  10. #[1] "彰化縣溪州鄉高速公路南下223" "澎湖縣馬公市關帝廟前"     
  11. #[3] "台北市信義路大安森林公園"    "花蓮縣花蓮市府前路統冠超市"
Success #stdin #stdout 0.29s 22832KB
comments (?)
stdin 
Standard input is empty
stdout 
[1] "彰化縣溪州鄉高速公路南下223" "澎湖縣馬公市關帝廟前"       
[3] "台北市信義路大安森林公園"    "花蓮縣花蓮市府前路統冠超市"
https://ideone.com/ccOlwz
language:
R (R 3.5.2)
created:
10 years ago
visibility:
public

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!