Adding double logical operators for temperature conversions

geanders · May 18, 2017 · 015cc05 · 015cc05
1 parent 3691851
commit 015cc05
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/temperature_conversions.R b/R/temperature_conversions.R
@@ -43,7 +43,7 @@ convert_temperature <- function(temperature, old_metric, new_metric,
                                 round = 2){
 
         possible_metrics <- c("fahrenheit", "celsius", "kelvin", "f", "c", "k")
-        if(!(old_metric %in% possible_metrics) |
+        if(!(old_metric %in% possible_metrics) ||
            !(new_metric %in% possible_metrics)){
                 stop(paste0("The arguments `old_metric` and `new_metric` can only ",
                            "have one of the following values: `",