Fixed build check notes for breaks and read.csv import

.gitignore

@@ -1,2 +1,3 @@
 .Rhistory
 cred.R
+.Rproj.user

SocialMediaLab/DESCRIPTION

@@ -16,4 +16,4 @@ Suggests:
 Author: Timothy Graham & Robert Ackland with contribution from Chung-hong Chan
 Maintainer: Timothy Graham <Timothy.Graham@anu.edu.au>
 License: GPL (>= 2)
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1

SocialMediaLab/NAMESPACE

@@ -61,7 +61,7 @@ importFrom(twitteR,setup_twitter_oauth)
 importFrom(twitteR,twListToDF)
 importFrom(utils,"flush.console")
 importFrom(utils,"install.packages")
+importFrom(utils,"read.csv")
 importFrom(utils,"read.table")
 importFrom(utils,"write.csv")
 importFrom(utils,head)
-importFrom(utils,"read.csv")

SocialMediaLab/R/CollectDataFacebook.R

@@ -125,7 +125,7 @@ function(pageName,rangeFrom,rangeTo,verbose,n,writeToFile,credential = NULL) {
 
       if (missing(pageName)) {
         cat("Error. Argument `pageName` is missing.\nPlease specify a Facebook page to collect data from.\n")
-        break
+        return(NA)
       }
 
       # If date range has not been specified, or one of the range values is missing,

SocialMediaLab/R/CollectDataTwitter.R

@@ -137,7 +137,7 @@ function(searchTerm, numTweets, verbose, writeToFile, language, since, until,
 
   if (missing(searchTerm)) {
     cat("Error. Argument `searchTerm` is missing.\nPlease specify a search term or hashtag to collect data from.\n")
-    break
+    return(NA)
   }
 
   if (missing(since)) {

SocialMediaLab/R/CollectDataYoutube.R

@@ -114,14 +114,14 @@ function(videoIDs, apiKeyYoutube, verbose, writeToFile, maxComments) {
 
   if (missing(apiKeyYoutube)) {
     cat("Error. Argument `apiKeyYoutube` is missing. Please specify a valid API key to collect data (i.e. your Google Developer API Key).\n")
-    break
+    return(NA)
   }
 
   # Ensure that argument `pageName` has been specified by user.
 
   if (missing(videoIDs)) {
     cat("Error. Argument `videoIDs` is missing.\nPlease specify a vector of video IDs to collect data from.\n Hint: to do this you can use the `GetYoutubeVideoIDs` function in this package.")
-    break
+    return(NA)
   }
 
   apiKey <- apiKeyYoutube # to play nice with existing code

SocialMediaLab/R/SocialMediaLab-package.R

@@ -45,5 +45,5 @@
 #' @importFrom twitteR lookupUsers searchTwitter setup_twitter_oauth twListToDF
 #' @importFrom stringr str_extract str_replace_all str_match_all
 #' @importFrom stats 'na.omit'
-#' @importFrom utils "flush.console" head "install.packages" "read.table" "write.csv"
+#' @importFrom utils "flush.console" head "install.packages" "read.table" "write.csv" "read.csv"
 NULL