R Socket Sending Bin

client.R

con <- socketConnection(
  host="localhost", 
  port = 6011,
  blocking=TRUE,
  server=FALSE, 
  open="r+"
)

the_data <- "testing this dang thing"
write_resp <- writeLines(as.character(nchar(the_data)), con)
server_resp <- readLines(con, 1)
print(server_resp)
if(server_resp=="Ready") {
  close(con)
  con <- socketConnection(
    host="localhost", 
    port = 6011, 
    blocking=TRUE,
    server=FALSE, 
    open="wb"
  )
  write_resp <- writeLines(the_data, con)
  close(con)
}

server.R

server <- function(){
  bytes <- 0
  con <- socketConnection(
    host="localhost", 
    port = 6011, 
    blocking=TRUE,
    server=TRUE, 
    open="r+"
  )
  data <- readLines(con, 1)
  bytes <- as.numeric(data)
  print(bytes)
  response <- "Ready"
  writeLines(response, con) 
  close(con)
  con <- socketConnection(
    host="localhost", 
    port = 6011, 
    blocking=TRUE,
    server=TRUE, open = "rb"
  )
  data <- readBin(con,"raw",n = bytes)
  
  print(data)
  close(con)
}
server()