4

Is there a way to make R wait for console input before continuing? Let's say I source two scripts like this in a main script called run.R:

# some more R Code here

source("script1.R")
source("script2.R")

# some more R Code there

Script1 contains some readLine statement that asks the user for a username. Unfortunately if I just run the entire run.R file R doesn't wait for the username to be entered. It starts script2.R before the username is entered which leads to an error because the 2nd script needs the username.

I have an ugly workaround for this using R Studio's .rs.askForPassword which actually waits for the the input, but covers the password. Which is cool for passwords, but not so much for usernames. Plus it's an RStudio feature, not R.

Matt Bannert
  • 27,631
  • 38
  • 141
  • 207
  • You can look at jverzani [answer](http://stackoverflow.com/questions/11311747/add-a-popup-text-box-within-an-r-script-using-tcltk), it's doable with `tcltk`. – Victorp Apr 10 '14 at 08:49
  • Hm, probably would not work on Rstudio server then? Or is tcltk als available from standard browser config? – Matt Bannert Apr 10 '14 at 08:55

3 Answers3

4

readline can only be used in interactive sessions. In non-interactive use of readline the result is an empty string. On the help page of ?interactive you find the following about interactive sessions:

GUI consoles will arrange to start R in an interactive session. When R is run in a terminal (via Rterm.exe on Windows), it assumes that it is interactive if ‘stdin’ is connected to a (pseudo-)terminal and not if ‘stdin’ is redirected to a file or pipe. Command-line options --interactive (Unix) and --ess (Windows, Rterm.exe) override the default assumption.

shadow
  • 21,823
  • 4
  • 63
  • 77
  • Ok, thx. I see now `readline` is not the way to go. Your answers does help to understand what I was guessing. But is there a way to circumvent this, i.e. use another function? I typically run R from RStudio. – Matt Bannert Apr 10 '14 at 08:09
4

Try scan function.

This is test.R file:

y <- 2
cat('y=',y)
cat("\nEnter username")
x <- scan(what=character(),nmax=1,quiet=TRUE)
"ala ma kota"
y <- 2*2
cat('y=',y)
cat('\nx=',x)

and then I run this:

> source("test.R")
y= 2
Enter username
1: login
y= 4
x= login

--edit-- To read only one character quietly run this:

> x <- scan(what=character(),nmax=1,quiet=TRUE)
1: username
> x
[1] "username"

what sets the type, nmax sets the maximal numbers of elements to read and quiet determine if print a line, saying how many items have been read.

bartektartanus
  • 15,284
  • 6
  • 74
  • 102
0

Why not putting

source("script2.R")

into the file script1.R?

Jianyu
  • 21
  • 4