Add manual linewidth scale

Author: teunbrand

NAMESPACE

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

R/scale-manual.r

@@ -110,6 +110,12 @@ scale_linetype_manual <- function(..., values, breaks = waiver(), na.value = "bl
   manual_scale("linetype", values, breaks, ..., na.value = na.value)
 }
 
+#' @rdname scale_manual
+#' @export
+scale_linewidth_manual <- function(..., values, breaks = waiver(), na.value = NA) {
+  manual_scale("linewidth", values, breaks, ..., na.value = na.value)
+}
+
 #' @rdname scale_manual
 #' @export
 scale_alpha_manual <- function(..., values, breaks = waiver(), na.value = NA) {
@@ -122,7 +128,6 @@ scale_discrete_manual <- function(aesthetics, ..., values, breaks = waiver()) {
   manual_scale(aesthetics, values, breaks, ...)
 }
 
-
 manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), ..., limits = NULL) {
   # check for missing `values` parameter, in lieu of providing
   # a default to all the different scale_*_manual() functions