Update request code examples

source/partials/_request_example_js.md.erb

@@ -3,15 +3,15 @@ const url = '<%= url %>';
 <% if body_json %>
 const headers = {
   'Content-Type': 'application/json'
-},
+};
 const body = <%= body_json %>;
 <% end %>
 
 const response = await fetch(url, {
   method: '<%= http_method %>',
 <% if body_json %>
   headers,
-  body: JSON.stringify(body),
+  body: JSON.stringify(body)
   <% end %>
 });
 

source/partials/_request_example_py.md.erb

@@ -4,9 +4,9 @@ import requests
 url = '<%= url %>'
 <% if body_json %>
 headers = {
-  "Content-Type": "application/json",
+  'Content-Type': 'application/json'
 }
-data = '<%= body_json %>'
+data = '''<%= body_json %>'''
 <% end %>
 
 response = requests.<%= http_method.downcase %>(url<% if body_json %>, headers=headers, data=data<% end %>)

source/partials/_request_example_r.md.erb

@@ -1,15 +1,21 @@
 ```r
 library(httr)
 
-url <- '<%= url %>'
+url <- "<%= url %>"
 <% if body_json %>
-body <- '<%= body_json %>'
+body <- "<%= body_json %>"
 <% end %>
 
-response <- httr::<%= http_method.upcase %>(url<% if body_json %>,
-  body=body, encode='json',
+<% if body_json %>
+response <- <%= http_method.upcase %>(
+  url,
+  body = body,
+  encode = "json",
   content_type("application/json")
-  <% end %>)
+)
+<% else %>
+response <- <%= http_method.upcase %>(url)
+<% end %>
 
 output <- content(response)
 ```