Dev

DESCRIPTION

@@ -10,7 +10,7 @@ Authors@R: c(
     )
 Description: The goal of `PlotFTIR` is to easily and quickly kick-start the production of journal-quality Fourier Transform Infra-Red (FTIR) spectral plots in R using ggplot2. The produced plots can be published directly or further modified by ggplot2 functions.
     L'objectif de `PlotFTIR` est de démarrer facilement et rapidement la production des tracés spectraux de spectroscopie infrarouge à transformée de Fourier (IRTF) de qualité journal dans R à l'aide de ggplot2. Les tracés produits peuvent être publiés directement ou modifiés davantage par les fonctions ggplot2.
-License: MIT + file LICENSE
+License: GPL (>= 3)
 Encoding: UTF-8
 LazyData: true
 Imports: 
@@ -29,3 +29,4 @@ Suggests:
     rmarkdown
 Config/testthat/edition: 3
 VignetteBuilder: knitr
+BugReports: https://https://github.com/NRCan/PlotFTIR/issues

LICENSE

@@ -1,2 +1,15 @@
 YEAR: 2024
 COPYRIGHT HOLDER: His Majesty the King in Right of Canada, as represented by the Minister of Natural Resources, 2024
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.

R/manipulations.R

@@ -434,10 +434,12 @@ rename_plot_sample_ids <- function(ftir_spectra_plot, sample_ids) {
 
   if (!requireNamespace("ggthemes", quietly = TRUE) || length(unique(ftir_spectra_plot$sample_id)) > 15) {
     p <- ftir_spectra_plot +
-      ggplot2::scale_color_viridis_d(labels = new_ids)
+      ggplot2::scale_color_viridis_d(labels = new_ids) +
+      ggplot2::scale_x_reverse()
   } else {
     p <- ftir_spectra_plot +
-      ggthemes::scale_color_calc(labels = new_ids)
+      ggthemes::scale_color_calc(labels = new_ids) +
+      ggplot2::scale_x_reverse(minor_breaks = scales::breaks_width(-200))
   }
 
   return(p)

R/plot_ftir.R

@@ -130,15 +130,15 @@ plot_ftir_core <- function(ftir, plot_title = "FTIR Spectra", legend_title = "Sa
   }
 
   p <- p +
-    ggplot2::scale_x_reverse(minor_breaks = scales::breaks_width(-200)) +
     ggplot2::labs(
       title = plot_title[1],
       subtitle = if (length(plot_title) < 2) NULL else plot_title[2], # Can't return Null from ifelse()
       x = xtitle,
       y = ytitle
     ) +
     ggplot2::guides(color = ggplot2::guide_legend(title = legend_title), x = ggplot2::guide_axis(minor.ticks = TRUE)) +
-    ggplot2::theme_light()
+    ggplot2::theme_light() +
+    ggplot2::scale_x_reverse(minor_breaks = scales::breaks_width(-200))
 
   if (!requireNamespace("ggthemes", quietly = TRUE) || length(unique(ftir$sample_id)) > 15) {
     p <- p +

README.Rmd

@@ -17,14 +17,18 @@ library(magrittr)
 
 # PlotFTIR <img src='man/figures/PlotFTIR_logo.png' align="right" width="25%" min-width="120px"/>
 
+([Français](#introduction-et-installation))
+
 <!-- badges: start -->
 [![R-CMD-check](https://github.com/pbulsink/PlotFTIR/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/pbulsink/PlotFTIR/actions/workflows/R-CMD-check.yaml)
 [![codecov](https://codecov.io/gh/pbulsink/PlotFTIR/graph/badge.svg?token=zrndO2tPwv)](https://codecov.io/gh/pbulsink/PlotFTIR)
-[![CRAN status](https://www.r-pkg.org/badges/version/PlotFTIR)](https://CRAN.R-project.org/package=PlotFTIR)
 [![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
-<!-- badges: end -->
 
-([Français](#introduction-et-installation))
+
+[![CRAN status](https://www.r-pkg.org/badges/version/PlotFTIR)](https://CRAN.R-project.org/package=PlotFTIR)
+[![CRAN version](https://www.r-pkg.org/badges/version/PlotFTIR)](https://cran.r-project.org/package=PlotFTIR)
+`r badger::badge_doi("", "green")`
+<!-- badges: end -->
 
 ## Introduction and Installation
 The goal of `PlotFTIR` is to easily and quickly kick-start the production of journal-quality Fourier Transform Infra-Red (FTIR) spectral plots in R using ggplot2. The produced plots can be published directly or further modified by ggplot2 functions.

README.md

@@ -3,17 +3,21 @@
 
 # PlotFTIR <img src='man/figures/PlotFTIR_logo.png' align="right" width="25%" min-width="120px"/>
 
+([Français](#introduction-et-installation))
+
 <!-- badges: start -->
 
 [![R-CMD-check](https://github.com/pbulsink/PlotFTIR/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/pbulsink/PlotFTIR/actions/workflows/R-CMD-check.yaml)
 [![codecov](https://codecov.io/gh/pbulsink/PlotFTIR/graph/badge.svg?token=zrndO2tPwv)](https://codecov.io/gh/pbulsink/PlotFTIR)
-[![CRAN
-status](https://www.r-pkg.org/badges/version/PlotFTIR)](https://CRAN.R-project.org/package=PlotFTIR)
 [![Lifecycle:
 stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
-<!-- badges: end -->
 
-([Français](#introduction-et-installation))
+[![CRAN
+status](https://www.r-pkg.org/badges/version/PlotFTIR)](https://CRAN.R-project.org/package=PlotFTIR)
+[![CRAN
+version](https://www.r-pkg.org/badges/version/PlotFTIR)](https://cran.r-project.org/package=PlotFTIR)
+[![](https://img.shields.io/badge/doi--green.svg)](https://doi.org/)
+<!-- badges: end -->
 
 ## Introduction and Installation