fork download
copy 
  1. df <- structure(list(t1 = c("Book (Pg 1)", "(Website) Online)", "Journal: 2018)", "Book1 (pg 2) book 3 (pg4)  something)")), class = "data.frame", row.names = c(NA, -4L))
  2. gsub("\\([^()]*\\)(*SKIP)(*F)|[()]", "", df$t1, perl=TRUE)
  3. # => [1] "Book (Pg 1)"                          "(Website) Online"                    
  4. # =>  [3] "Journal: 2018"                        "Book1 (pg 2) book 3 (pg4)  something"
Success #stdin #stdout 0.24s 39080KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "Book (Pg 1)"                         
[2] "(Website) Online"                    
[3] "Journal: 2018"                       
[4] "Book1 (pg 2) book 3 (pg4)  something"
https://ideone.com/qzPhPo
language:
R (R 3.5.2)
created:
4 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!