add don't run to examples

R/PolyCharts.R

@@ -42,8 +42,10 @@ fixJSON = function(x){
 #' Main plotting function
 #' 
 #' @examples
+#' \dontrun{
 #' names(iris) = gsub('\\.', '', names(iris))
 #' rPlot(SepalLength ~ SepalWidth | Species, data = iris, type = 'point', color = 'Species')
+#' }
 #' 
 #' 
 rPlot <- function(x, ...){

R/gist.R

@@ -7,7 +7,9 @@
 #' @importFrom rjson fromJSON
 #' 
 #' @examples
+#' \dontrun{
 #' gist = create_gist(gfiles, description = 'description', public = T)
+#' }
 post_gist <- function(gist){
   if (is.null(getOption('github.username'))){
     username <- readline("Please enter your github username: ")

R/toJSON.R

@@ -8,7 +8,9 @@
 #' @importFrom rjson toJSON
 #' @keywords internal
 #' @examples
+#' \dontrun{
 #' toJSONArray(head(iris))
+#' }
 toJSONArray <- function(obj, json = TRUE){
   list2keyval <- function(l){
     keys = names(l)
@@ -37,8 +39,10 @@ toJSONArray <- function(obj, json = TRUE){
 #' @keywords internal
 #' @importFrom rjson toJSON
 #' @examples
+#' \dontrun{
 #' toChain(list(showControls = TRUE, showDistX = TRUE), "chart")
 #' ## chart.showControls(true).showDistX(true)
+#' }
 toChain <- function(x, obj){
   config <- sapply(names(x), USE.NAMES = F, function(i){
     sprintf("  .%s(%s)", i, toJSON(x[[i]]))

man/post_gist.Rd

@@ -15,6 +15,8 @@
   Publish a list of files as a gist
 }
 \examples{
+\dontrun{
 gist = create_gist(gfiles, description = 'description', public = T)
 }
+}
 

man/rPlot.Rd

@@ -8,7 +8,9 @@
   Main plotting function
 }
 \examples{
+\dontrun{
 names(iris) = gsub('\\\\.', '', names(iris))
 rPlot(SepalLength ~ SepalWidth | Species, data = iris, type = 'point', color = 'Species')
 }
+}
 

man/toChain.Rd

@@ -9,9 +9,11 @@
   acting on a specified object.
 }
 \examples{
+\dontrun{
 toChain(list(showControls = TRUE, showDistX = TRUE), "chart")
 ## chart.showControls(true).showDistX(true)
 }
+}
 \author{
   Ramnath Vaidyanathan
 }

man/toJSONArray.Rd

@@ -11,8 +11,10 @@
   row of the data frame. This utility function does that.
 }
 \examples{
+\dontrun{
 toJSONArray(head(iris))
 }
+}
 \author{
   Ramnath Vaidyanathan
 }