fork download 
  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 
Standard input is empty
stdout 
[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!