Question

我知道这是一个非常基本的问题，因为我是R的新手。我有这个问题。

如何允许用户从键盘输入数字。提供用户输入他们想要从键盘输入的数量，并根据提供的设施输入数字。

例如：

How many numbers you want to enter?  
> 10  
Enter numbers:  
> 5 10 15 20 25 30 35 40 45 50

Answer 1

   while(T) {
    num <- readline("How many number do you want to enter? > ")
    num <- as.numeric(num)
    if (!is.na(num)) {
      num2 <- readline(paste0("Enter ",num, " numbers > "))
      print(num2)
      break
    }
  }

Answer 2

我创建了一个函数，询问用户他们想要输入多少个数字，并根据该计数提供输入整数的工具

readnumber <- function()
{ 
    n <- readline(prompt="How many numbers do you want to enter: ")
    n <- as.integer(n)
    if (is.na(n)){
        n <- readnumber()
    }
    Numbers<-c()
    for (i in 1:n){
        num <- readline(prompt="Enter an integer: ")
        Numbers[i]<-as.numeric(num)
    }
    return(Numbers)    
}
print(readnumber())

Answer 3

正如其他人已经想尽的那样，readline是回答您问题的函数。关于您的示例，这是尝试重现请求的行为。

N <- as.numeric(readline("How many number do you want to enter? "))
x <- vector()  # making sure x is empty

for (n in seq_len(N)) {
    new_x <- readline(paste0("Enter number ", n, " of ", N, ": "))
    x <- append(x, as.numeric(new_x))
}

cat("Here are the entered numbers:\n")
print(x)

从R中读取键盘输入

3 个答案: