Сохранить пользовательский ввод в фрейме данных в R

Question

Я хочу получить пользовательский ввод в R и сохранить его в столбце dataframe, который соответствует.Например:

Month Year  Value       No
4     2016  114235.00   A22
5     2016  114235.00   A22
6     2016  114235.00   A22

my.name <- readline(prompt="Year: "))
my.month <- as.integer(readline(prompt="Month: "))
my.off <- as.integer(readline(prompt="Value: "))

Как я могу это сделать?

Answer 1

readData <- function() {
  df <- data.frame(Month = c(), Year = c(), Value = c())
  while(TRUE) {
    my.year <- readline(prompt="Year: ")
    # stop reading if no year was typed in
    if (my.year == '')
      break
    my.month <- as.integer(readline(prompt="Month: "))
    my.val <- as.integer(readline(prompt="Value: "))
    # add the read data to the bottom of the dataframe
    df <- rbind(df, data.frame(Month = c(my.month), Year = c(my.year), Value = c(my.val)))
  }
  df
}
# now call the function, it will allow inputs until an empty year is typed
readData()