Skip to content

Commit

Permalink
Adding \dontrun where examples > 5 secs
Browse files Browse the repository at this point in the history
  • Loading branch information
lilyclements committed Oct 14, 2024
1 parent 4536fa7 commit 80a7a2a
Show file tree
Hide file tree
Showing 6 changed files with 18 additions and 6 deletions.
6 changes: 4 additions & 2 deletions R/clinical_emissions.R
Original file line number Diff line number Diff line change
Expand Up @@ -12,8 +12,10 @@
#' @export
#'
#' @examples
#' # clinical theatre emissions for the default options, with 100kg of wet clinical waste
#' clinical_theatre_emissions(wet_clinical_waste = 100, wet_clinical_waste_unit = "kg")
#' \donttest{
#' # clinical theatre emissions for the default options, with 100kg of wet clinical waste
#' clinical_theatre_emissions(wet_clinical_waste = 100, wet_clinical_waste_unit = "kg")
#' }
clinical_theatre_emissions <- function(wet_clinical_waste, wet_clinical_waste_unit = c("tonnes", "kg"),
desflurane = 0, sevoflurane = 0, isoflurane = 0, methoxyflurane = 0, N2O = 0, propofol = 0,
water_supply = 0, water_trt = TRUE, water_unit = c("cubic metres", "million litres"),
Expand Down
2 changes: 2 additions & 0 deletions R/clinical_theatre_data.R
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,7 @@
#' @export
#'
#' @examples
#' \donttest{
#' # Example with dummy data
#' df <- data.frame(time = c("10/04/2000", "10/04/2000", "11/04/2000",
#' "11/04/2000", "12/04/2000", "12/04/2000"),
Expand All @@ -42,6 +43,7 @@
#' jurisdiction = "Australia",
#' year = 2023,
#' single_sheet = FALSE)
#' }
clinical_theatre_data <- function(data, time, date_format = c("%d/%m/%Y"), name, wet_clinical_waste = 0, wet_clinical_waste_unit = c("tonnes", "kg"),
desflurane = 0, sevoflurane = 0, isoflurane = 0, methoxyflurane = 0, N2O = 0, propofol = 0,
water_supply = 0, water_trt = TRUE, water_unit = c("cubic metres", "million litres"),
Expand Down
4 changes: 3 additions & 1 deletion R/material_emissions.R
Original file line number Diff line number Diff line change
Expand Up @@ -48,7 +48,9 @@
#' `"Anaerobic digestion"` energy is recovered from the waste through anaerobic digestion.
#'
#' @examples
#' material_emissions(glass = 100, glass_WD = 10, glass_units = "kg")
#' \donttest{
#' material_emissions(glass = 100, glass_WD = 10, glass_units = "kg")
#' }
material_emissions <- function(glass = 0, board = 0, mixed = 0, paper = 0,
fridges = 0, freezers = 0, large_electrical = 0, IT = 0, small_electrical = 0,
alkaline_batteries = 0, LiIon_batteries = 0, NiMh_batteries = 0,
Expand Down
2 changes: 2 additions & 0 deletions man/clinical_theatre_data.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

6 changes: 4 additions & 2 deletions man/clinical_theatre_emissions.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

4 changes: 3 additions & 1 deletion man/material_emissions.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit 80a7a2a

Please sign in to comment.