v0.5 CRAN ready

pablobarbera · Jan 9, 2015 · 24c7ac1 · 24c7ac1
1 parent c6e335a
commit 24c7ac1
Show file tree

Hide file tree

Showing 7 changed files with 8 additions and 5 deletions.
diff --git a/Rfacebook-manual.pdf b/Rfacebook-manual.pdf
diff --git a/Rfacebook/DESCRIPTION b/Rfacebook/DESCRIPTION
@@ -9,5 +9,6 @@ Maintainer: Pablo Barbera <pablo.barbera@nyu.edu>
 Depends:
     R (>= 2.12.0),
     httr,
-    rjson
+    rjson,
+    httpuv
 License: GPL-2
diff --git a/Rfacebook/NAMESPACE b/Rfacebook/NAMESPACE
@@ -14,5 +14,6 @@ export(getUsers)
 export(searchFacebook)
 export(searchPages)
 export(updateStatus)
+import(httpuv)
 import(httr)
 import(rjson)
diff --git a/Rfacebook/R/Rfacebook-package.R b/Rfacebook/R/Rfacebook-package.R
@@ -12,6 +12,6 @@
 #' @aliases Rfacebook
 #' @docType package
 #' @author Pablo Barbera \email{pablo.barbera@@nyu.edu}
-#' @import httr rjson
+#' @import httr rjson httpuv
 NULL
 
diff --git a/Rfacebook/R/fbOAuth.R b/Rfacebook/R/fbOAuth.R
@@ -71,7 +71,6 @@
 
 fbOAuth <- function(app_id, app_secret, extended_permissions=TRUE)
 {
-	require(httpuv)
 	## getting callback URL
 	full_url <- oauth_callback()
 	full_url <- gsub("(.*localhost:[0-9]{1,5}/).*", x=full_url, replacement="\\1")

diff --git a/Rfacebook/R/getInsights.R b/Rfacebook/R/getInsights.R
@@ -37,7 +37,8 @@
 #'	insights <- getInsights(object_id="20531316728", token=fb_oauth, metric='page_impressions')
 #' ## Getting post impressions for a random Facebook`s page post
 #' ## (only owner or admin of page)
-#'  insights <- getInsights(object_id='221568044327801_754789777921289', token=fb_oauth, metric='post_impressions', period='days_28')
+#'  insights <- getInsights(object_id='221568044327801_754789777921289', 
+#'      token=fb_oauth, metric='post_impressions', period='days_28')
 #' }
 #'
 

diff --git a/Rfacebook/man/getInsights.Rd b/Rfacebook/man/getInsights.Rd
@@ -35,7 +35,8 @@ that you must specify wich metric from insights you need.
 	insights <- getInsights(object_id="20531316728", token=fb_oauth, metric='page_impressions')
 ## Getting post impressions for a random Facebook`s page post
 ## (only owner or admin of page)
- insights <- getInsights(object_id='221568044327801_754789777921289', token=fb_oauth, metric='post_impressions', period='days_28')
+ insights <- getInsights(object_id='221568044327801_754789777921289',
+     token=fb_oauth, metric='post_impressions', period='days_28')
 }
 }
 \author{