text <- "\\examples{afunction(x = list()){\nx<-3\n}y<-2 server <- function(input, output, session) {\n output$res_bttn1 <- renderPrint({input$bttn1})\n}\n}"
pattern = "\\\\examples({([^{}]*?(?:(?1)[^{}]*?)*)\\s*})"
unlist(regmatches(text, regexec(pattern, text, perl=TRUE)))[3]
dGV4dCA8LSAiXFxleGFtcGxlc3thZnVuY3Rpb24oeCA9IGxpc3QoKSl7XG54PC0zXG59eTwtMiBzZXJ2ZXIgPC0gZnVuY3Rpb24oaW5wdXQsIG91dHB1dCwgc2Vzc2lvbikge1xuICBvdXRwdXQkcmVzX2J0dG4xIDwtIHJlbmRlclByaW50KHtpbnB1dCRidHRuMX0pXG59XG59IgpwYXR0ZXJuID0gIlxcXFxleGFtcGxlcyh7KFtee31dKj8oPzooPzEpW157fV0qPykqKVxccyp9KSIKdW5saXN0KHJlZ21hdGNoZXModGV4dCwgcmVnZXhlYyhwYXR0ZXJuLCB0ZXh0LCBwZXJsPVRSVUUpKSlbM10=