diff --git a/NAMESPACE b/NAMESPACE index 8fbd9f9..4e76205 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -2,6 +2,7 @@ export("%>%") export(renderStreamgraph) +export(sg_add_marker) export(sg_annotate) export(sg_axis_x) export(sg_axis_y) diff --git a/R/marker.r b/R/marker.r index e3b2386..90f58ef 100644 --- a/R/marker.r +++ b/R/marker.r @@ -11,9 +11,10 @@ #' @param space space (in points) from the marker to place the label #' @param y vertical position #' @param color color of the label -#' @param size font size#' @export +#' @param size font size #' @param anchor how to justify the label (one of \code{start} [left], #' \code{middle} [center] or \code{end} [right]) +#' @export sg_add_marker <- function(sg, x, label="", stroke_width=0.5, stroke="#7f7f7f", space=5, y=0, color="#7f7f7f", size=12, anchor="start") {