version 0.3.1

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: bigQueryR
 Title: Interface with Google BigQuery with Shiny Compatibility
-Version: 0.3.0
+Version: 0.3.1
 Authors@R: c(person("Mark", "Edmondson",email = "r@sunholo.com",
                   role = c("aut", "cre")),
              person("Hadley", "Wickham", , "hadley@rstudio.com", role = "ctb")
@@ -20,9 +20,9 @@ Suggests: shiny (>= 0.12.1), knitr, rmarkdown, testthat
 RoxygenNote: 6.0.1
 VignetteBuilder: knitr
 NeedsCompilation: no
-Packaged: 2017-05-02 21:18:54 UTC; mark
+Packaged: 2017-05-19 12:58:55 UTC; mark
 Author: Mark Edmondson [aut, cre],
   Hadley Wickham [ctb]
 Maintainer: Mark Edmondson <r@sunholo.com>
 Repository: CRAN
-Date/Publication: 2017-05-03 06:52:58 UTC
+Date/Publication: 2017-05-20 08:02:46 UTC

MD5

@@ -1,25 +1,25 @@
-f71310f8d070e87efc1fa772ca5ffe07 *DESCRIPTION
+0879644c81440bb8924a68bc59041bc6 *DESCRIPTION
 1918b8807c8b12031663a9efe23458e0 *LICENSE
 bc6b17f202ec4268089cc692723e20ca *NAMESPACE
-1da1f905feb2803ffe111ca9d961a4b2 *NEWS.md
+b451e2e00a7f6dcef979ada1260e5034 *NEWS.md
 b0c470bbd0c12471ff6d861f1218fc40 *R/auth.R
 086eb868dbba4a932d07a6733668b75d *R/bigQueryR.R
 455eeee08045823b8139a02fcbe11184 *R/dataParseFunctions.R
-9f55dd2698f912ef056568ea7b7de704 *R/downloadData.R
+5ffba2c79cacc86c5b313b1c8405c767 *R/downloadData.R
 2c421cc2f3b9e1495cc7eaa2ee2e9455 *R/globals.R
 68d75a7ae77b9432833e0e1332f1a668 *R/jobs.R
-32aa14239281734f839e12e265f23b92 *R/listBigQuery.R
+0fcd82dcfd2cdaebccfc403dd14e8190 *R/listBigQuery.R
 c19901ae9c831f8fd2a0736d3179e55f *R/options.R
-26ab87c8358b202f129adbcb56811423 *R/partition.R
+81db1fd0980ae48495ef1bbe780eafe8 *R/partition.R
 4fcedd2524f11131bff92a22277f68e0 *R/print_methods.R
-596baca6e9394a11920a4649eebbb6e3 *R/query.R
+70de4f4ca9d5bf1fca6a4ab86c725650 *R/query.R
 eef5d355fb0e6bab3f7a4a456baeb9d7 *R/tables.R
 755b8b0ce51436d58e6ccb8f6172566b *R/uploadData.R
-e1db41010e5046aa90d77fe6cc3acd1c *R/utilities.R
-bdecbcecf9ef55523b5d34dcac0cb906 *build/vignette.rds
+9496906eb59ad8d07b86d1a0edfca1c4 *R/utilities.R
+1c54afe76713250972cdbf35f6bb74e2 *build/vignette.rds
 e8d818d4be126d9c02920eb65f6437f9 *inst/CITATION
 59d79154d6247524cbbc88634227446a *inst/doc/bigQueryR.Rmd
-ab0078545cd347c3bb7574bf0400c768 *inst/doc/bigQueryR.html
+c0d1a199720978508d54aeec84c79aa6 *inst/doc/bigQueryR.html
 f79d7c7ac5251dc6a23a6b017defdb76 *man/bigQueryR.Rd
 f2eaee4efd44db76c75a716149aba951 *man/bq_get_global_dataset.Rd
 791f0abace3714d39e1e8756a20d263b *man/bq_get_global_project.Rd
@@ -34,9 +34,9 @@ b3f9e03bb6da6feb766bfad852b58cc8 *man/bqr_auth.Rd
 16f5371ae462ea0748418e75d269ca6d *man/bqr_grant_extract_access.Rd
 bbf59a86db782fe7738e324eadc78e85 *man/bqr_list_datasets.Rd
 19820c74cad33004d559b82769578b46 *man/bqr_list_jobs.Rd
-064792bb7a89debc8a6d4ccb396b1473 *man/bqr_list_projects.Rd
+06604537eb32badf650c0272e2174a39 *man/bqr_list_projects.Rd
 b8c81fbd5f4028e1141498493eef45c1 *man/bqr_list_tables.Rd
-5b46c8237dbb1507ffd0cd8de3f98b4d *man/bqr_partition.Rd
+c18ee700f5ca01827f1727a2829e7e4c *man/bqr_partition.Rd
 282f8c0b94ca8120c4bb3c6b8b0abc16 *man/bqr_query.Rd
 219d4fe9e4e83d3107a24839f039cc59 *man/bqr_query_asynch.Rd
 6e0461025cc743c5bdeea70902f86914 *man/bqr_table_data.Rd
@@ -55,7 +55,7 @@ d73a74c4a41bb745e0c47c8e69b1008b *man/parse_bqr_query.Rd
 c9fdcdaed7c24bf33774de3e5207116c *man/rmNullObs.Rd
 4f517b883d180122b87094234afadacb *man/schema_fields.Rd
 95592f7be17d720b52e846ab24cb9e32 *man/timestamp_to_r.Rd
-a59ed0de0e2d665bad365061cc457dbb *tests/testthat.R
+2053e23752bee1f280b8eaa6f225a439 *tests/testthat.R
 4c8d57de99d7aef7be21fe3570a77d99 *tests/testthat/auth.json
-6559e60e37c35f770892f18831db6b2e *tests/testthat/test_query.R
+3d5d242c2fce46c465267e12bb387325 *tests/testthat/test_query.R
 59d79154d6247524cbbc88634227446a *vignettes/bigQueryR.Rmd

NEWS.md

@@ -1,3 +1,8 @@
+# bigQuery 0.3.1
+
+* Fix asynch job fail if user previously `set.seed()` (#37)
+* skip tests on CRAN causing error
+
 # bigQueryR 0.3.0
 
 * Add support for realtime queries, `useQueryCache = FALSE`

R/downloadData.R

@@ -109,8 +109,8 @@ bqr_extract_data <- function(projectId = bq_get_global_project(),
 
   config <- list(
     jobReference = list(
-      projectId = projectId,
-      jobId = idempotency() ## uuid to stop duplicate exports
+      projectId = projectId
+      ##jobId = idempotency() ## uuid to stop duplicate exports - breaks if set.seed (#37)
     ),
     configuration = list(
       extract = list(

R/listBigQuery.R

@@ -58,7 +58,7 @@ bqr_list_datasets <- function(projectId = bq_get_global_project()){
 #' 
 #' Example: bqr_list_projects()
 #' 
-#' @return A dataframe of the projects you have access to under the authenitcation
+#' @return A dataframe of the projects you have access to under the authentication
 #' 
 #' @examples 
 #' 

R/partition.R

@@ -1,6 +1,6 @@
 #' Convert date-sharded tables to a single partitioned table
 #' 
-#' Moves the old style date-shareded tables such as \code{[TABLE_NAME]_YYYYMMDD} to the new date partitioned format.
+#' Moves the old style date-sharded tables such as \code{[TABLE_NAME]_YYYYMMDD} to the new date partitioned format.
 #' 
 #' @param sharded The prefix of date-sharded tables to merge into one partitioned table
 #' @param partition Name of partitioned table. Will create if not present already
@@ -33,7 +33,7 @@
 #'   tables increases. There is also a limit of 1,000 tables that can be referenced in a 
 #'   single query. Partitioned tables have none of these disadvantages.
 #' 
-#' @return \code{TRUE} if all parition jobs start running successfully
+#' @return \code{TRUE} if all partition jobs start running successfully
 #' 
 #' @seealso \href{Partitioned Tables Help}{https://cloud.google.com/bigquery/docs/creating-partitioned-tables}
 #' @export

R/query.R

@@ -186,6 +186,8 @@ bqr_query_asynch <- function(projectId = bq_get_global_project(),
                                                   "WRITE_TRUNCATE",
                                                   "WRITE_APPEND")){
 
+  writeDisposition <- match.arg(writeDisposition)
+
   check_bq_auth()
   ## make job
   job <- 
@@ -197,8 +199,8 @@ bqr_query_asynch <- function(projectId = bq_get_global_project(),
 
   config <- list(
     jobReference = list(
-      projectId = projectId,
-      jobId = idempotency() ## uuid to stop duplicates
+      projectId = projectId
+     ## jobId = idempotency() ## uuid to stop duplicates - breaks if set.seed() (#37)
     ),
     configuration = list(
       query = list(

R/utilities.R

@@ -117,5 +117,6 @@ myMessage <- function(..., level = 1){
 #' @return A random 15 digit hash
 #' @keywords internal
 idempotency <- function(){
+  set.seed(Sys.time())
   paste(sample(c(LETTERS, letters, 0:9), 15, TRUE),collapse="")
 }