fork(3) download 
  1. Sources <- c(
  2.                 "Coal burning plant",
  3.                 "General plant",
  4.                 "coalescent plantation",
  5.                 "Charcoal burning plant"
  6.         )
  7. Registry <- seq(from = 1100, to = 1103, by = 1)
  8.  
  9. df <- data.frame(Registry, Sources)
  10.  grep('(?i)(?=.*\\bplant\\b)(?=.*\\bcoal\\b)', df$Sources, perl=T, value=T)
  11.  
Success #stdin #stdout 0.31s 22840KB
comments (?)
stdin 
Standard input is empty
stdout 
[1] "Coal burning plant"
https://ideone.com/15zOGB
language:
R (R 3.5.2)
created:
10 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!