R implementation of CS50x's Problem Set 6 - mario, more comfortable

mario.R

# mario.R

printCharInSeq <- function(char, num) {
  for (n in seq_len(num)) {
    cat(char)
  }
}

prompt <- "Height: "

repeat {
  if (interactive()) {
    height <- readline(prompt)
  }
  else {
    cat(prompt)
    height <- readLines("stdin", n = 1)
  }
  height <- suppressWarnings(as.numeric(height[1]))
  if ((height > 0 && height < 9) && !is.na(height))
    break
}

for (numblocks in seq_len(height)) {
  spaces <- height - numblocks
  printCharInSeq(" ", spaces)
  printCharInSeq("#", numblocks)
  printCharInSeq(" ", 2)
  printCharInSeq("#", numblocks)
  cat("\n")
}