testData/parser/r/FunctionDefinition.r (
6
lines of code) (
raw
):
readinteger <- function() { n <- readline(prompt="Enter an integer: ") return(as.integer(n)) } print(readinteger())