From 28eb408d84ee54083759ba78a728ff8e98941cf0 Mon Sep 17 00:00:00 2001 From: Graham Parsons Date: Sat, 1 Jul 2017 19:52:48 +0100 Subject: [PATCH] Fix typo to export sg_add_marker --- NAMESPACE | 1 + R/marker.r | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) 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") {