diff --git a/DESCRIPTION b/DESCRIPTION index ab9fc6d..5ef7132 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: ddh Type: Package Title: Utility Functions and Data Sets for Data-driven Hypothesis -Version: 0.3.15 +Version: 0.3.16 Authors@R: c( person(given = "Matthew", family = "Hirschey", @@ -10,7 +10,7 @@ Authors@R: c( comment = c(ORCID = "0000-0003-4541-5376")), person(given = "Pol", family = "Castellano-Escuder", - role = c("aut", "ctb"), + role = c("aut", "cre"), email = "pol.castellano.escuder@duke.edu", comment = c(ORCID = "0000-0001-6466-877X")) ) diff --git a/R/plots.R b/R/plots.R index 2b089d7..f253963 100644 --- a/R/plots.R +++ b/R/plots.R @@ -565,9 +565,9 @@ make_protein_domain <- function(input = list(), ggplot2::theme_void() + ggplot2::theme( legend.title = ggplot2::element_blank(), - strip.text = ggplot2::element_text(family = "Roboto Slab", hjust = 0.5, size = 15), - plot.title = ggplot2::element_text(family = "Roboto Slab", hjust = 0.5, size = 15), - text = ggplot2::element_text(family = "Roboto Slab"), + strip.text = ggplot2::element_text(family = "Chivo", hjust = 0.5, size = 15), + plot.title = ggplot2::element_text(family = "Chivo", hjust = 0.5, size = 15), + text = ggplot2::element_text(family = "Nunito Sans"), legend.text = ggplot2::element_text(size = 15), axis.text = ggplot2::element_blank(), axis.ticks = ggplot2::element_blank() @@ -577,7 +577,7 @@ make_protein_domain <- function(input = list(), plot_complete <- base_plot + ggplot2::theme(axis.text.x = ggplot2::element_text(family = "Roboto Slab", size = 14), - axis.title.x = ggplot2::element_text(family = "Roboto Slab", size = 18, + axis.title.x = ggplot2::element_text(family = "Nunito Sans", size = 18, margin = ggplot2::margin(t = 12, b = 12)), legend.position = "right") + scale_fill_ddh_d(palette = "protein")