scan .
test.R :
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)
:
> source("test.R")
y= 2
Enter username
1: login
y= 4
x= login
- edit--
, :
> x <- scan(what=character(),nmax=1,quiet=TRUE)
1: username
> x
[1] "username"
what , nmax quiet , , , .