text <- "Berthold Speer was een [[Duitsland (hoofdbetekenis)|Duits]] [[architect]]." gsub("\\[{2}(?:[^]|]*\\|)?([^]]*)]{2}", "\\1", text)
Standard input is empty
[1] "Berthold Speer was een Duits architect."
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!