R/getInput.R

Defines functions getInput

getInput<-function(inpstat){
  if(missing(inpstat)){
    n<-readline(prompt = "Select a field: ")
    n<-as.numeric(n)
  } else {
    n<-readline(prompt = paste0(inpstat,", Select a field: "))
    n<-as.numeric(n)
  }
return(n)
}
mcl868/TicTacToe documentation built on Jan. 14, 2023, 2:21 a.m.