fork download
copy 
  1. library(stringr)
  2. example_string <- "In this document, Defined Terms are quotation marks, followed by definition. \"Third Party Software\" is software owned by third parties. \"USA\" the United States of America. \"Breach of Contract\" is in accordance with the Services Description."
  3. res <- str_match_all(example_string, '"(\\p{Lu}[^"]*)"')
  4. unlist(lapply(res, function(x) x[,-1]))
Success #stdin #stdout 0.28s 42516KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "Third Party Software" "USA"                  "Breach of Contract"
https://ideone.com/ZI5E9s
language:
R (R 3.5.2)
created:
5 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!