set_blanket and weave_* redesign

[davidhodge931]

set_blanket and weave_* redesign

[davidhodge931]

Consider making unweave_geom() or unset_blanket() to ensure then ggplot2 could not be affected

Would need ggplot2 3.5.1

#to unset 
unset_blanket <- function() {
  weave_mode(theme_grey())  
  unweave_geom() #need to make this with 3.5.1
  weave_col_palette(
    col_palette_d = scales::pal_hue(),
    col_palette_c = scales::pal_viridis()
  )
}

[davidhodge931]

set_blanket(mode, colour, fill, alpha, linewidth, col_palette_d, col_palette_c)
weave_mode(mode = light_mode_r())
weave_geom(colour = blue, fill = NULL, alpha = NULL, linewidth = 0.66)
weave_col_palette()

weave_annotate(colour = lightness[1], alpha = 0.05, linewidth = 0.33)

unset_blanket()

[davidhodge931]

library(tidyverse)
library(ggblanket)
library(palmerpenguins)

set_blanket()

weave_mode()
weave_geom_aes()
weave_col_palette()
weave_annotate_aes()

penguins |>
  gg_point(
    x = flipper_length_mm,
    y = body_mass_g,
    col = species,
  )

unset_blanket()