Fix 404 error for query (fix #52)

cloudyr · Jun 8, 2018 · 4012df7 · 4012df7
1 parent fe12cc4
commit 4012df7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/R/query.R b/R/query.R
@@ -54,11 +54,13 @@ bqr_query <- function(projectId = bqr_get_global_project(),
 
   body <- rmNullObs(body)
 
-  q <- googleAuthR::gar_api_generator("https://www.googleapis.com/bigquery/v2",
+  # solve 404?
+  the_url <- sprintf("https://www.googleapis.com/bigquery/v2/projects/%s/queries", projectId)
+
+  q <- googleAuthR::gar_api_generator(the_url,
                                       "POST",
-                                      path_args = list(projects = projectId,
-                                                       queries = ""),
-                                      data_parse_function = parse_bqr_query)
+                                      data_parse_function = parse_bqr_query,
+                                      checkTrailingSlash = FALSE)
 
   data <- try(q(the_body = body,
                 path_arguments = list(projects = projectId)))

diff --git a/man/bqr_auth.Rd b/man/bqr_auth.Rd