diff --git a/R/PeriodAccumulation.R b/R/PeriodAccumulation.R
index 2adf45f78da157b89aecaa4978a4f3090e2e9de4..b68be57b73df69a40dff1ceb9c5b51bd10692709 100644
--- a/R/PeriodAccumulation.R
+++ b/R/PeriodAccumulation.R
@@ -322,7 +322,9 @@ PeriodAccumulation <- function(data, dates = NULL, start = NULL, end = NULL,
     pos <- match(dimnames, names(dim(total)))
     total <- aperm(total, pos)
   }
-  dim(total) <- c(dim(total), setNames(1, time_dim))
+  if (!time_dim %in% names(dim(total))) {
+    dim(total) <- c(dim(total), setNames(1, time_dim))
+  }
   return(total)
 }
 
diff --git a/tests/testthat/test-PeriodAccumulation.R b/tests/testthat/test-PeriodAccumulation.R
index 3aa47ea1a7da387fbaf5d35c5ea3f0b9f71a8485..d5e41a0927c292d85319a2bcca934ed1e5051512 100644
--- a/tests/testthat/test-PeriodAccumulation.R
+++ b/tests/testthat/test-PeriodAccumulation.R
@@ -196,29 +196,29 @@ test_that("4. Rolling", {
   # Output checks
   expect_equal(
     PeriodAccumulation(data = dat2, rollwidth = -2, dates = dates2, frequency = 'daily'),
-    array(c(4, 6, 8, 10, NA, NA), dim = c(sdate = 2, time = 3, member = 1, time = 1))
+    array(c(4, 6, 8, 10, NA, NA), dim = c(sdate = 2, time = 3, member = 1))
   )
   expect_equal(
     PeriodAccumulation(data = dat2, rollwidth = 3, dates = dates2, frequency = 'daily'),
-    array(c(rep(NA, 4), 9, 12), dim = c(sdate = 2, time = 3, member = 1, time = 1))
+    array(c(rep(NA, 4), 9, 12), dim = c(sdate = 2, time = 3, member = 1))
   )
   dat2_1 <- dat2
   dat2_1[1,1,1] <- NA
   expect_equal(
     PeriodAccumulation(data = dat2_1, rollwidth = 2, dates = dates2, na.rm = FALSE, 
                        frequency = 'daily'), 
-    array(c(rep(NA, 3), 6, 8, 10), dim = c(sdate = 2, time = 3, member = 1, time = 1))
+    array(c(rep(NA, 3), 6, 8, 10), dim = c(sdate = 2, time = 3, member = 1))
   )
   
   # Test rolling with start and end
   expect_equal(
     PeriodAccumulation(data = dat2, rollwidth = 1, dates = dates2, 
                        start = list(1, 4), end = list(2, 4), frequency = 'daily'),
-    array(c(1, 2, 3, 4), dim = c(sdate = 2, time = 2, member = 1, time = 1))
+    array(c(1, 2, 3, 4), dim = c(sdate = 2, time = 2, member = 1))
   )
   expect_equal(
     PeriodAccumulation(data = dat2, rollwidth = 2, dates = dates2, 
                        start = list(1, 4), end = list(2, 4), frequency = 'daily'),
-    array(c(NA, NA, 4, 6), dim = c(sdate = 2, time = 2, member = 1, time = 1))
+    array(c(NA, NA, 4, 6), dim = c(sdate = 2, time = 2, member = 1))
   )
 })