From 8ab284ac085222e138b7889d88832ec0c8f71e8b Mon Sep 17 00:00:00 2001 From: lilyclements Date: Tue, 15 Oct 2024 16:36:31 +0100 Subject: [PATCH] Removing plastic_waste_disposal --- R/clinical_emissions.R | 3 +-- R/material_emissions.R | 4 +--- R/office_emissions.R | 2 +- man/clinical_theatre_data.Rd | 2 -- man/clinical_theatre_emissions.Rd | 3 --- man/material_emissions.Rd | 3 --- 6 files changed, 3 insertions(+), 14 deletions(-) diff --git a/R/clinical_emissions.R b/R/clinical_emissions.R index 895bf43..cdc26fe 100644 --- a/R/clinical_emissions.R +++ b/R/clinical_emissions.R @@ -30,7 +30,6 @@ clinical_theatre_emissions <- function(wet_clinical_waste, wet_clinical_waste_un paper_waste_disposal = c("Closed-loop", "Combustion", "Composting", "Landfill"), average_WD = 0, average_film_WD = 0, average_rigid_WD = 0, HDPE_WD = 0, LDPE_WD = 0, LLDPE_WD = 0, PET_WD = 0, PP_WD = 0, PS_WD = 0, PVC_WD = 0, - plastic_waste_disposal = c("Closed-loop", "Combustion", "Landfill", "Open-loop"), glass_units = c("kg", "tonnes"), paper_units = c("kg", "tonnes"), plastic_units = c("kg", "tonnes")){ checkmate::assert_numeric(wet_clinical_waste, lower = 0) @@ -51,7 +50,7 @@ clinical_theatre_emissions <- function(wet_clinical_waste, wet_clinical_waste_un HDPE = HDPE, LDPE = LDPE, LLDPE = LLDPE, PET = PET, PP = PP, PS = PS, PVC = PVC, average_WD = average_WD, average_film_WD = average_film_WD, average_rigid_WD = average_rigid_WD, HDPE_WD = HDPE_WD, LDPE_WD = LDPE_WD, LLDPE_WD = LLDPE_WD, PET_WD = PET_WD, PP_WD = PP_WD, - PS_WD = PS_WD, PVC_WD = PVC_WD, plastic_waste_disposal = plastic_waste_disposal, plastic_units = plastic_units, + PS_WD = PS_WD, PVC_WD = PVC_WD, plastic_units = plastic_units, fridges = fridges, freezers = freezers, electric_waste_disposal = electric_waste_disposal, electrical_units = electrical_units) # in tonnes diff --git a/R/material_emissions.R b/R/material_emissions.R index cf803a1..4c72b0c 100644 --- a/R/material_emissions.R +++ b/R/material_emissions.R @@ -18,7 +18,6 @@ #' @param metal_waste_disposal Character vector specifying the waste disposal method to use for metal for calculating emissions. Possible values: `"Closed-loop"`, `"Combustion"`, `"Landfill"`, `"Open-loop"`. Default is "Closed-loop". See `details` for more information. #' @param glass_waste_disposal Character vector specifying the waste disposal method to use for metal for calculating emissions. Possible values: `"Closed-loop"`, `"Combustion"`, `"Landfill"`, `"Open-loop"`. Default is "Closed-loop". See `details` for more information. #' @param paper_waste_disposal Character vector specifying the waste disposal method for paper to use for calculating emissions. Possible values: `"Closed-loop"`, `"Combustion"`, `"Composting"`, `"Landfill"`. Default is `"Closed-loop"`. See `details` for more information. -#' @param plastic_waste_disposal Character vector specifying the waste disposal method for plastic to use for calculating emissions. Possible values: `"Closed-loop"`, `"Combustion"`, `"Landfill"`, `"Open-loop"`. Default is `"Closed-loop"`. See `details` for more information. #' @param electric_waste_disposal Character vector specifying the waste disposal method for electrical items to use for calculating emissions. Possible values: `"Landfill"`, `"Open-loop"`. Default is `"Landfill"`. See `details` for more information. #' @param construction_waste_disposal Character vector specifying the waste disposal method for electrical items to use for calculating emissions. Options are, `"Closed-loop"`, `"Combustion"`, `"Composting"`, `"Landfill"`, #' `"Open-loop"`. Default is `"Closed-loop"`. @@ -66,7 +65,6 @@ material_emissions <- function(glass = 0, board = 0, mixed = 0, paper = 0, paper_waste_disposal = c("Closed-loop", "Combustion", "Composting", "Landfill"), average_WD = 0, average_film_WD = 0, average_rigid_WD = 0, HDPE_WD = 0, LDPE_WD = 0, LLDPE_WD = 0, PET_WD = 0, PP_WD = 0, PS_WD = 0, PVC_WD = 0, - plastic_waste_disposal = c("Closed-loop", "Combustion", "Landfill", "Open-loop"), fridges_WD = 0, freezers_WD = 0, large_electrical_WD = 0, IT_WD = 0, small_electrical_WD = 0, alkaline_batteries_WD = 0, LiIon_batteries_WD = 0, NiMh_batteries_WD = 0, electric_waste_disposal = c("Landfill", "Open-loop"), @@ -100,7 +98,7 @@ material_emissions <- function(glass = 0, board = 0, mixed = 0, paper = 0, HDPE = HDPE, LDPE = LDPE, LLDPE = LLDPE, PET = PET, PP = PP, PS = PS, PVC = PVC, average_WD = average_WD, average_film_WD = average_film_WD, average_rigid_WD = average_rigid_WD, HDPE_WD = HDPE_WD, LDPE_WD = LDPE_WD, LLDPE_WD = LLDPE_WD, PET_WD = PET_WD, PP_WD = PP_WD, - PS_WD = PS_WD, PVC_WD = PVC_WD, waste_disposal = plastic_waste_disposal, units = plastic_units) + PS_WD = PS_WD, PVC_WD = PVC_WD, units = plastic_units) electrical_emissions <- electrical_emissions(fridges = fridges, freezers = freezers, large = large_electrical, IT = IT, small = small_electrical, alkaline_batteries = alkaline_batteries, LiIon_batteries = LiIon_batteries, NiMh_batteries = NiMh_batteries, diff --git a/R/office_emissions.R b/R/office_emissions.R index 9f5aa95..324de17 100644 --- a/R/office_emissions.R +++ b/R/office_emissions.R @@ -59,4 +59,4 @@ office_emissions <- function(specify = FALSE, office_num = 1, WFH_num = 0, WFH_h } office_emissions <- office_emissions + WFH_emissions return(office_emissions * 0.001) -} \ No newline at end of file +} diff --git a/man/clinical_theatre_data.Rd b/man/clinical_theatre_data.Rd index 48945a0..6e1ad95 100644 --- a/man/clinical_theatre_data.Rd +++ b/man/clinical_theatre_data.Rd @@ -177,8 +177,6 @@ clinical_theatre_data( \item{PVC_WD}{Numeric value indicating the weight of PVC plastic disposed of using waste disposal methods. Default is \code{0}.} -\item{plastic_waste_disposal}{Character vector specifying the waste disposal method for plastic to use for calculating emissions. Possible values: \code{"Closed-loop"}, \code{"Combustion"}, \code{"Landfill"}, \code{"Open-loop"}. Default is \code{"Closed-loop"}. See \code{details} for more information.} - \item{fridges}{Numeric value indicating the weight of fridges. Default is \code{0}.} \item{freezers}{Numeric value indicating the weight of freezers. Default is \code{0}.} diff --git a/man/clinical_theatre_emissions.Rd b/man/clinical_theatre_emissions.Rd index d344bd0..bc4d703 100644 --- a/man/clinical_theatre_emissions.Rd +++ b/man/clinical_theatre_emissions.Rd @@ -56,7 +56,6 @@ clinical_theatre_emissions( PP_WD = 0, PS_WD = 0, PVC_WD = 0, - plastic_waste_disposal = c("Closed-loop", "Combustion", "Landfill", "Open-loop"), glass_units = c("kg", "tonnes"), paper_units = c("kg", "tonnes"), plastic_units = c("kg", "tonnes") @@ -165,8 +164,6 @@ clinical_theatre_emissions( \item{PVC_WD}{Numeric value indicating the weight of PVC plastic disposed of using waste disposal methods. Default is \code{0}.} -\item{plastic_waste_disposal}{Character vector specifying the waste disposal method for plastic to use for calculating emissions. Possible values: \code{"Closed-loop"}, \code{"Combustion"}, \code{"Landfill"}, \code{"Open-loop"}. Default is \code{"Closed-loop"}. See \code{details} for more information.} - \item{glass_units}{Character vector specifying the units of the emissions related to glass. Possible values: \code{"kg"}, \code{"tonnes"}. Default is \code{"kg"}.} \item{paper_units}{Character vector specifying the units of the emissions related to paper. Possible values: \code{"kg"}, \code{"tonnes"}. Default is \code{"kg"}.} diff --git a/man/material_emissions.Rd b/man/material_emissions.Rd index 43110f4..619255d 100644 --- a/man/material_emissions.Rd +++ b/man/material_emissions.Rd @@ -56,7 +56,6 @@ material_emissions( PP_WD = 0, PS_WD = 0, PVC_WD = 0, - plastic_waste_disposal = c("Closed-loop", "Combustion", "Landfill", "Open-loop"), fridges_WD = 0, freezers_WD = 0, large_electrical_WD = 0, @@ -205,8 +204,6 @@ material_emissions( \item{PVC_WD}{Numeric value indicating the weight of PVC plastic disposed of using waste disposal methods. Default is \code{0}.} -\item{plastic_waste_disposal}{Character vector specifying the waste disposal method for plastic to use for calculating emissions. Possible values: \code{"Closed-loop"}, \code{"Combustion"}, \code{"Landfill"}, \code{"Open-loop"}. Default is \code{"Closed-loop"}. See \code{details} for more information.} - \item{fridges_WD}{Numeric value indicating the weight of fridges disposed of using waste disposal methods. Default is \code{0}.} \item{freezers_WD}{Numeric value indicating the weight of freezers disposed of using waste disposal methods. Default is \code{0}.}