rm unnecessary imports

Author: chriddyp

tests/cookbook-test-suite/axes.R

@@ -1,9 +1,3 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
-library(ggplot2)
-
 bp <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_boxplot()
 
 bp1 <- bp + coord_flip()

tests/cookbook-test-suite/bars_and_lines.R

@@ -1,16 +1,9 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
 df <- data.frame(time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
                  total_bill = c(14.89, 17.23))
 #   time total_bill
 #  Lunch      14.89
 # Dinner      17.23
 
-# Load the ggplot2 library
-library(ggplot2)
-
 # Very basic bar graph
 g <- ggplot(data=df, aes(x=time, y=total_bill)) + geom_bar(stat="identity")
 save_outputs(g, 'bars-and-lines/basic-bar')

tests/cookbook-test-suite/distributions.R

@@ -1,7 +1,3 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
 set.seed(1234)
 df <- data.frame(cond = factor( rep(c("A","B"), each=200) ),
                    rating = c(rnorm(200),rnorm(200, mean=.8)))
@@ -14,8 +10,6 @@ df <- data.frame(cond = factor( rep(c("A","B"), each=200) ),
 #    B  0.8146431
 #    B -0.1164891
 
-library(ggplot2)
-
 
 # Basic histogram from the vector "rating". Each bin is .5 wide.
 # These both do the same thing:

tests/cookbook-test-suite/legends.R

@@ -1,8 +1,3 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
-library(ggplot2)
 bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot()
 
 # Remove legend for a particular aesthetic (fill)

tests/cookbook-test-suite/lines.R

@@ -1,16 +1,10 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
 # Some sample data
 df <- read.table(header=T, text='
      cond result
   control     10
 treatment   11.5
 ')
 
-library(ggplot2)
-
 # Basic bar plot
 bp <- ggplot(df, aes(x=cond, y=result)) + geom_bar(position=position_dodge())
 bp

tests/cookbook-test-suite/means_and_error_bars.R

@@ -1,7 +1,3 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
 df <- ToothGrowth
 #  len supp dose
 #  4.2   VC  0.5
@@ -10,8 +6,6 @@ df <- ToothGrowth
 # 29.4   OJ    2
 # 23.0   OJ    2
 
-library(ggplot2)
-
 # summarySE provides the standard deviation, standard error of the mean, and a (default 95%) confidence interval
 
 ## Summarizes data.

tests/cookbook-test-suite/scatterplots.R

@@ -1,7 +1,3 @@
-library(plotly)
-set_credentials_file("ggplot2-cookbook", "gzcn4660jr")
-py <- plotly();
-
 set.seed(955)
 # Make some noisily increasing data
 dat <- data.frame(cond = rep(c("A", "B"), each=10),
@@ -14,8 +10,6 @@ dat <- data.frame(cond = rep(c("A", "B"), each=10),
 #    B 17.793359218 19.718587761
 #    B 19.319909163 19.647899863
 
-library(ggplot2)
-
 g <- ggplot(dat, aes(x=xvar, y=yvar)) +
     geom_point(shape=1)      # Use hollow circles
 save_outputs(g, 'scatterplots/scatterplots with hollow circles')