diff --git a/R/plot_record_by_depth.R b/R/plot_record_by_depth.R index 7236bfd..e678204 100644 --- a/R/plot_record_by_depth.R +++ b/R/plot_record_by_depth.R @@ -10,7 +10,7 @@ #' @import tidyr #' @import rlang #' @importFrom stats reorder -#' + plot_record_by_depth <- function(data) { if (get_data_type(data) %in% c("CPR North","CPR South","Sediment trap","Pump")) { stop("This function is designed to work only with Net data", call. = FALSE) diff --git a/R/plot_record_by_season.R b/R/plot_record_by_season.R index 9c48879..43ec49e 100644 --- a/R/plot_record_by_season.R +++ b/R/plot_record_by_season.R @@ -8,7 +8,7 @@ #' @import ggplot2 #' @import dplyr #' @import rlang -#' + plot_record_by_season <- function(data) { if (get_data_type(data)=="Sediment trap"){ data$sampling_month=as.numeric(sub("^\\d{2}/(\\d{2})/\\d{4}$", "\\1",