prepare CRAN submission

.Rbuildignore

@@ -3,3 +3,4 @@
 sh$
 tar.gz$
 LICENSE
+TODO.md

NAMESPACE

@@ -54,3 +54,9 @@ importFrom(jsonlite,fromJSON)
 importFrom(jsonlite,toJSON)
 importFrom(jsonlite,unbox)
 importFrom(plyr,ldply)
+importFrom(utils,URLencode)
+importFrom(utils,assignInMyNamespace)
+importFrom(utils,capture.output)
+importFrom(utils,getFromNamespace)
+importFrom(utils,str)
+importFrom(utils,tail)

R/fb_init.R

@@ -64,6 +64,7 @@ fbad_check_curl_params <- function(params) {
 #' @param retries number of times the current query was tried previously -- used to handle network errors
 #' @return json object containing results
 #' @keywords internal
+#' @importFrom utils getFromNamespace URLencode capture.output str
 fbad_request <- function(fbacc, path, method = c('GET', 'POST', 'DELETE'), params = list(), debug = FALSE, log = TRUE, version = fb_api_most_recent_version(), retries = 0) {
 
     mc     <- match.call()
@@ -318,6 +319,7 @@ fbad_get_adaccount_details  <- function(accountid, token, version) {
 #'
 #' ## Then pass this token with your account ID to fbad_init
 #' }
+#' @importFrom utils assignInMyNamespace
 fbad_init <- function(accountid, token, version = fb_api_most_recent_version()) {
 
     if (version < '2.5') {

R/fb_insights.R

@@ -13,7 +13,13 @@
 #' ## process results
 #' l <- fb_insights(fbacc, date_preset = 'today', level = 'ad')
 #' library(rlist)
-#' list.stack(list.select(l, date_start, date_stop, ad_id, total_actions, total_unique_actions, total_action_value, impressions, unique_impressions, social_impressions, unique_social_impressions, clicks, unique_clicks, social_clicks, unique_social_clicks, spend, frequency, deeplink_clicks, app_store_clicks, website_clicks, reach, social_reach, ctr, unique_ctr, cpc, cpm, cpp, cost_per_total_action, cost_per_unique_click, relevance_score = relevance_score$score))
+#' list.stack(list.select(l, date_start, date_stop, ad_id, total_actions,
+#'   total_unique_actions, total_action_value, impressions, unique_impressions,
+#'   social_impressions, unique_social_impressions, clicks, unique_clicks,
+#'   social_clicks, unique_social_clicks, spend, frequency, deeplink_clicks,
+#'   app_store_clicks, website_clicks, reach, social_reach, ctr, unique_ctr,
+#'   cpc, cpm, cpp, cost_per_total_action, cost_per_unique_click,
+#'   relevance_score = relevance_score$score))
 #' }
 fb_insights <- function(fbacc, target = fbacc$acct_path, job_type = c('sync', 'async'), retries = 0, ...) {
 

R/helpers.R

@@ -1,6 +1,7 @@
 #' Return the name of the parent function
 #' @return string
 #' @keywords internal
+#' @importFrom utils tail
 this_function_name <- function() {
     sc <- sys.call(-1)[[1]]
     ifelse(is.symbol(sc),

man/fb_insights.Rd

@@ -31,7 +31,13 @@ fb_insights(fbacc)
 ## process results
 l <- fb_insights(fbacc, date_preset = 'today', level = 'ad')
 library(rlist)
-list.stack(list.select(l, date_start, date_stop, ad_id, total_actions, total_unique_actions, total_action_value, impressions, unique_impressions, social_impressions, unique_social_impressions, clicks, unique_clicks, social_clicks, unique_social_clicks, spend, frequency, deeplink_clicks, app_store_clicks, website_clicks, reach, social_reach, ctr, unique_ctr, cpc, cpm, cpp, cost_per_total_action, cost_per_unique_click, relevance_score = relevance_score$score))
+list.stack(list.select(l, date_start, date_stop, ad_id, total_actions,
+  total_unique_actions, total_action_value, impressions, unique_impressions,
+  social_impressions, unique_social_impressions, clicks, unique_clicks,
+  social_clicks, unique_social_clicks, spend, frequency, deeplink_clicks,
+  app_store_clicks, website_clicks, reach, social_reach, ctr, unique_ctr,
+  cpc, cpm, cpp, cost_per_total_action, cost_per_unique_click,
+  relevance_score = relevance_score$score))
 }
 }
 \references{