Function that asks a ~special~ something and returns an answer

Question

I want to do it, but so far all I have is:

print("Will you go out with me?")

I want the code to work so that one can answer yes/no and if answer is yes then a message would return saying like the time, place, etc.

The person I am asking is an R guru so it would mean a lot to them ~~(:

Would love some help. Trying to get that date!

crossover with https://interpersonal.stackexchange.com ? – Ben Bolker Mar 11 '18 at 01:02 — Ben Bolker, Mar 11 '18 at 01:02

Rich Scriven · Answer 1 · 2018-03-11T01:35:00.363

6

Put the following into a file and then ask your friend to source the file.

r <- readline("Will you go out with me? (respond 'yes' or 'no'): ")
if(grepl("[Yy]es", r)) {
    cat("Date: 3/10/2018", "Time: 7pm", "Place: McDonalds", sep = "\n")
} else {
    cat("Too bad, I'm a catch.")
}

Now your friend sources the file and BOOM, date!

> source('~/.active-rstudio-document')
Will you go out with me?: yes
Date: 3/10/2018
Time: 7pm
Place: McDonalds

... or BOOM, rejected!

> source('~/.active-rstudio-document')
Will you go out with me?: no
Too bad, I'm a catch.

edited Mar 11 '18 at 01:35

answered Mar 11 '18 at 00:55

Rich Scriven

97,041
11
181
245

Might be good to have some kind of safety for `YES!` answers :) – Karolis Koncevičius Mar 11 '18 at 00:58
Good call. Added a `grepl` for checking, although it's probably best to do `readline("Will you go out with me? (respond 'yes' or 'no'): ")` – Rich Scriven Mar 11 '18 at 01:01
3

As you can tell, I'm pretty classy with my restaurant choices. – Rich Scriven Mar 11 '18 at 01:04
1

Amazing!! How'd you know my plan for date/time/place? Is that the standard first date? Didn't even know--but thank you!!! – Jackie Vazquez Mar 11 '18 at 20:42
1

@JackieVazquez Now find the way to hide the source code, so they can't be put off by "classy" restaurant choices before answering. – zx8754 Mar 12 '18 at 08:45

Function that asks a ~special~ something and returns an answer

1 Answers1