Add linewidth identity scale

Author: teunbrand

NAMESPACE

@@ -582,6 +582,7 @@ export(scale_linewidth_continuous)
 export(scale_linewidth_date)
 export(scale_linewidth_datetime)
 export(scale_linewidth_discrete)
+export(scale_linewidth_identity)
 export(scale_linewidth_ordinal)
 export(scale_radius)
 export(scale_shape)

R/scale-identity.r

@@ -95,6 +95,15 @@ scale_linetype_identity <- function(..., guide = "none") {
   sc
 }
 
+#' @rdname scale_identity
+#' @export
+scale_linewidth_identity <- function(..., guide = "none") {
+  sc <- continuous_scale("linewidth", "identity", identity_pal(), ...,
+                         guide = guide, super = ScaleContinuousIdentity)
+
+  sc
+}
+
 #' @rdname scale_identity
 #' @export
 scale_alpha_identity <- function(..., guide = "none") {