clean up comments

Author: tdhock

R/ggplotly.R

@@ -111,13 +111,13 @@ gg2list <- function(p){
     }
   }
 
-  ## Test fill and color to see if they encode a quantitative
-  ## variable. This may be useful for several reasons: (1) it is
-  ## sometimes possible to plot several different colors in the same
-  ## trace (e.g. points), and that is faster for large numbers of
-  ## data points and colors; (2) factors on x or y axes should be
-  ## sent to plotly as characters, not as numeric data (which is
-  ## what ggplot_build gives us).
+  # Test fill and color to see if they encode a quantitative
+  # variable. This may be useful for several reasons: (1) it is
+  # sometimes possible to plot several different colors in the same
+  # trace (e.g. points), and that is faster for large numbers of
+  # data points and colors; (2) factors on x or y axes should be
+  # sent to plotly as characters, not as numeric data (which is
+  # what ggplot_build gives us).
   misc <- list()
   for(a in c("fill", "colour", "x", "y", "size")){
     for(data.type in c("continuous", "date", "datetime", "discrete")){

R/trace_generation.R

@@ -363,7 +363,6 @@ toBasic <- list(
     g
   },
   bar=function(g) {
-    ## TODO: why is this here? bar is a basic geom.
     for(a in c("fill", "colour")){
       g$prestats.data[[a]] <-
         g$data[[a]][match(g$prestats.data$group, g$data$group)]
@@ -389,13 +388,11 @@ toBasic <- list(
     g
   },
   abline=function(g) {
-    ## TODO: why not treat abline as a basic path?
     g$params$xstart <- min(g$prestats.data$globxmin)
     g$params$xend <- max(g$prestats.data$globxmax)
     g
   },
   hline=function(g) {
-    ## TODO: why not treat hline as a basic path?
     if (is.factor(g$data$x)) {
       g$params$xstart <- as.character(sort(g$data$x)[1])
       g$params$xend <- as.character(sort(g$data$x)[length(g$data$x)])
@@ -406,13 +403,11 @@ toBasic <- list(
     g
   },
   vline=function(g) {
-    ## TODO: why not treat vline as a basic path?
     g$params$ystart <- min(g$prestats.data$globymin)
     g$params$yend <- max(g$prestats.data$globymax)
     g
   },
   point=function(g) {
-    ## TODO: why is this code here? point is a basic geom.
     if ("size" %in% names(g$data)) {
       g$params$sizemin <- min(g$prestats.data$globsizemin)
       g$params$sizemax <- max(g$prestats.data$globsizemax)