From ebd16f2b14dc1d91b31e551db4a2f86f130badd1 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Fri, 15 Nov 2024 20:13:52 +0100
Subject: [PATCH] Fix rsm design export (#337)

---
 R/doeResponseSurfaceMethodology.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/doeResponseSurfaceMethodology.R b/R/doeResponseSurfaceMethodology.R
index e85689c5..31d4d0da 100644
--- a/R/doeResponseSurfaceMethodology.R
+++ b/R/doeResponseSurfaceMethodology.R
@@ -381,7 +381,7 @@ doeResponseSurfaceMethodology <- function(jaspResults, dataset, options, ...) {
   if (is.null(design))
     return()
 
-  out_design <- design
+  out_design <- as.data.frame(design)
   colnames(out_design)[1:2] <- c("RunOrder", "StandardOrder")
   out_design[["Response"]] <- ""