text <- c( "\n1. Morgenhanen matter", "\n1. Morgenstund har guld", "\nMorgensange for børn be")grep("^\\n1", text, value=TRUE)
Standard input is empty
[1] "\n1. Morgenhanen matter" "\n1. Morgenstund har guld"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!