Trim spaces when formatting vector of numbers (#355)

Fixes #354

Author: hadley

Diff for: R/url.R

@@ -200,6 +200,6 @@ format_query_param <- function(x, error_call = caller_env()) {
     return(x)
   }
 
-  x <- format(x, scientific = FALSE)
+  x <- format(x, scientific = FALSE, trim = TRUE)
   curl::curl_escape(x)
 }

Diff for: tests/testthat/test-url.R

@@ -83,8 +83,9 @@ test_that("handles all atomic vectors", {
 })
 
 
-test_that("doubles don't use scientific notation", {
+test_that("formats numbers nicely", {
   expect_equal(format_query_param(1e9), "1000000000")
+  expect_equal(format_query_param(c(1, 1000)), c("1", "1000"))
 })
 
 test_that("can opt out of escaping", {