read.csv from a string

text <- "city,mm
Nairobi,85
Mombasa,40
Kisumu,120"
df <- read.csv(text = text, stringsAsFactors = FALSE)
print(df)
print(df$mm[df$city == "Nairobi"])

text <- "city,units
Nakuru,4
Eldoret,3"
print(read.csv(text = text, stringsAsFactors = FALSE))

df <- read.csv(text = "city,mm\nNairobi,85\nKisumu,120", stringsAsFactors = FALSE)
print(mean(df$mm))

print("rain.csv is a banner download — or paste the string as above")