R: Specific user input to dataframe

Question

Any suggestions on a much cleaner version of the following? The output should be a data.frame of two columns as seen below. The user inputs response to 'how many concs?' and should create matrix with this this number (saved as y). Then the value for each conc must be inputted (saved as a)

x <- as.numeric (readline(prompt="How many concs?: ")) 

if(x == 6) {
  y <- c("conc 1","conc 2","conc 3","conc 4","conc 5", "conc 6")
  a <- as.integer(strsplit(readline(prompt="enter 6 numbers separated by 
space: "), " ")[[1]])
  cbind(y,a)
}
if(x == 5) {
  y <- c("conc 1","conc 2","conc 3","conc 4","conc 5")
  a <- as.integer(strsplit(readline(prompt="enter 5 numbers separated by 
space: "), " ")[[1]])
  cbind(y,a)
}
if(x == 4) {
  y <- c("conc 1","conc 2","conc 3","conc 4")
  a <- as.integer(strsplit(readline(prompt="enter 4 numbers separated by 
  space: "), " ")[[1]])
  cbind(y,a)
}
if(x == 3) {
  y <- c("conc 1","conc 2","conc 3")
  a <- as.integer(strsplit(readline(prompt="enter 3 numbers separated by 
  space: "), " ")[[1]])
  cbind(y,a)
}
if(x == 2) {
  y <- c("conc 1","conc 2")
  a <- as.integer(strsplit(readline(prompt="enter 2 numbers separated by 
space: "), " ")[[1]])
  cbind(y,a)
}
if(x == 1) {
  y <- c("conc 1","conc 2")
  a <- as.integer(strsplit(readline(prompt="enter 1 number: "), " ")
[[1]])
  cbind(y,a)
}

Maybe take a look at switch?

lmo
– lmo

2017-09-04 22:54:28 +00:00
Commented Sep 4, 2017 at 22:54 — lmo
– lmo, Commented Sep 4, 2017 at 22:54

xraynaud · Accepted Answer · 2017-09-04 23:09:40Z

1

You don't need all those ifs and I'll suggest you use scan instead of readline.

x <- as.numeric (readline(prompt="How many concs?: ")) 
y <- paste("conc",1:x)

print(paste("enter", x," numbers separated return: "))
a <- scan(nmax=x,what=double())
df =  data.frame(conc=y,value=a)

edited Sep 4, 2017 at 23:09

answered Sep 4, 2017 at 23:02

xraynaud

2,15621 silver badges31 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

thelatemail Over a year ago

Well... there you go, I never knew ?scan allowed you to do that.

Collectives™ on Stack Overflow

R: Specific user input to dataframe

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related