<% datasets <- ls('package:datasets') dataset <- datasets[datasets %in% req$GET()[['data']]][1] if (is.na(dataset)) dataset <- 'iris' %>

<%=dataset%> Summary

<%=paste(capture.output(eval(parse(text=sprintf("summary(%s)",dataset)))),collapse='
')%>

Click on the below: