curse you cbind

plotly · Jul 13, 2016 · 63e0ddb · 63e0ddb
1 parent 1bd9d6a
commit 63e0ddb
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 47 deletions.
diff --git a/R/layers2traces.R b/R/layers2traces.R
@@ -645,7 +645,7 @@ ribbon_dat <- function(dat) {
   tmp <- dat[o, ]
   others <- tmp[not_used]
   dat1 <- cbind(x = tmp$x, y = tmp$ymin, others)
-  dat1[n+1, ] <- cbind(x = tmp$x[n], y = tmp$ymin[n], others[n, ])
+  dat1[n+1, ] <- data.frame(x = tmp$x[n], y = tmp$ymin[n], others[n, ])
   # bottom-half of ribbon
   tmp2 <- dat[o2, ]
   others2 <- tmp2[not_used]

diff --git a/R/plotly_data.R b/R/plotly_data.R
@@ -8,6 +8,7 @@
 #' @param id a character string or number referencing an "attribute layer".
 #' @return returns a data frame
 #' @examples
+#' @export
 #' 
 #' # use group_by() to define groups of visual markings
 #' p <- txhousing %>%

diff --git a/man/plotly_data.Rd b/man/plotly_data.Rd