fork download
copy 
  1. library(stringr)
  2.  
  3.   string1 <- ("536.2k Followers, 83 Following, 1,396 Posts")
  4.   string2 <- ("5m Followers, 83 Following, 1.1m Posts")
  5.  
  6.   info <- str_extract_all(string1,"[0-9]{1,5}(?:[,.][0-9]{1,4})?[mk ]?")
  7.   info2 <- str_extract_all(string2,"[0-9]{1,5}(?:[,.][0-9]{1,4})?[mk ]?")
  8.  
  9.   info 
  10.   info2
Success #stdin #stdout 0.24s 190528KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[1]]
[1] "536.2k" "83 "    "1,396 "

[[1]]
[1] "5m"   "83 "  "1.1m"
https://ideone.com/0dR1Ph
language:
R (R 3.5.2)
created:
6 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!