From fcaf3026f9bdf24aa34e53046ce68528bb555f59 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Mon, 25 Sep 2023 16:46:24 +0200
Subject: [PATCH] Remove buggy code that was only commented out

---
 R/msaAttribute.R | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/R/msaAttribute.R b/R/msaAttribute.R
index 092fb0d5..4e779601 100644
--- a/R/msaAttribute.R
+++ b/R/msaAttribute.R
@@ -300,10 +300,8 @@ msaAttribute <- function(jaspResults, dataset, options, ...) {
       }
 
       for (measurement in measurements) {
-        # if (is.numeric(dataset[[measurement]])) {
         dataset[measurement] <- as.character(dataset[[measurement]])
         dataset[standards] <- as.character(dataset[[standards]])
-        # }
       }
 
       matchesWithin <- vector(mode = "numeric")
@@ -482,9 +480,7 @@ msaAttribute <- function(jaspResults, dataset, options, ...) {
       numberInspected <- length(unique(dataset[[parts]]))
 
       for (measurement in measurements) {
-        # if (is.numeric(dataset[[measurement]])) {
           dataset[measurement] <- as.character(dataset[[measurement]])
-        # }
       }
 
       matchesWithin <- vector(mode = "numeric")