Implementing client-server connection in R

client.R

# Socket connections
# Client side
# http://blog.corynissen.com/2013/05/using-r-to-communicate-via-socket.html

client <- function(){
  while (TRUE) {
    con <- socketConnection(host = "localhost", port = 6011, blocking = TRUE,
                            server = FALSE, open = "r+")
    f <- file("stdin")
    open(f)
    print("Enter text to be upper-cased, q to quit")
    sendme <- readLines(f, n = 1)
    if (tolower(sendme) == "q") {
      break
    }
    write_resp <- writeLines(sendme, con)
    server_resp <- readLines(con, 1)
    print(paste("Your upper-cased text: ", server_resp))
    close(con)
  }
}

client()

server.R

# Socket connections
# Server side
# http://blog.corynissen.com/2013/05/using-r-to-communicate-via-socket.html

server <- function() {
  while (TRUE) {
    writeLines("Listening...")
    con <- socketConnection(host = "localhost", port = 6011, blocking = TRUE,
                            server = TRUE, open = "r+")
    data <- readLines(con, 1)
    print(data)
    response <- toupper(data)
    writeLines(response, con)
    close(con)
  }
}

server()