url encode for azure ml

gistfile1.r

# Map 1-based optional input ports to variables
dataset <- maml.mapInputPort(1) # class: data.frame

library(RCurl)

id <- dataset[[1]]
text <- dataset[[2]]

text <- curlEscape(text)
text <- gsub("%20", " ", text, ignore.case = TRUE)

data.set <- as.data.frame(cbind(id,text), stringsAsFactors=FALSE)                 

# Select data.frame to be sent to the output Dataset port
maml.mapOutputPort("data.set");