% datasets <- ls('package:datasets') dataset <- datasets[datasets %in% req$GET()[['data']]][1] if (is.na(dataset)) dataset <- 'iris' %>
<%=paste(capture.output(eval(parse(text=sprintf("summary(%s)",dataset)))),collapse='')%>
Click on the below: