Merge pull request #85 from cjbarrie/justin-dev

Fix isFALSE issue for R > 3.4.2

NAMESPACE

@@ -3,7 +3,6 @@
 export(bind_tweet_jsons)
 export(bind_user_jsons)
 export(build_query)
-export(build_user_query)
 export(get_all_tweets)
 export(get_bbox_tweets)
 export(get_country_tweets)

R/build_queryv2.R

@@ -82,7 +82,7 @@ build_query <- function(query,
     query <- paste(query, "is:retweet")
   }
 
-  if(isFALSE(is_retweet)) {
+  if(!isTRUE(is_retweet)) {
     query <- paste(query, "-is:retweet")
   }
 

vignettes/academictwitteR-build.Rmd

@@ -302,33 +302,20 @@ query
   
 ```
 
-## Building user queries with `build_user_query()`
+## Building user queries with `get_user_tweets()`
 
 What if we had a number of users in which we were interested but we weren't interested in all of their tweets? Say we wanted only to collect tweets that weren't retweets but contained images, and that were in the English language?
 
-We can achieve this by building a query with `build_user_query` and passing the resulting character vector of users and parameters to the `get_user_tweets()` function as follows:
-
-```{r}
-
-users <- c("cbarrie", "justin_ct_ho")
-
-users_params <-
-  build_user_query(users,
-                   is_retweet = F,
-                   has_media = T,
-                   lang = "en")
-
-users_params
-
-```
-
-
-We would then enter our new vector of users with added parameters to the `get_user_tweets()` function as follows:
+We can achieve this by building a query with `get_user_tweets()`, the fuction will turn a character vector of users into a query and pass to the  `get_all_tweets()` function along with other parameters:
 
 ```{r, eval=FALSE}
+users <- c("cbarrie", "justin_ct_ho")
 tweets <-
-  get_user_tweets(users_params,
+  get_user_tweets(users,
                   "2018-01-01T00:00:00Z",
                   "2020-04-05T00:00:00Z",
-                  bearer_token)
+                  bearer_token,
+                  is_retweet = FALSE,
+                  has_media = TRUE,
+                  lang = "en")
 ```