Not readLines , but readline .
n <- as.integer(readline(prompt = "Please enter sample size > "))
A slightly more spectacular implementation:
read_value <- function(prompt_text = "", prompt_suffix = getOption("prompt"), coerce_to = "character") { prompt <- paste(prompt_text, prompt_suffix) as(readline(prompt), coerce_to) } read_value("Please enter sample size", coerce_to = "integer")
source share