From 8701af375585c50690b8bc1067342a303b5b29a6 Mon Sep 17 00:00:00 2001
From: Valentin <valentin.lucet@gmail.com>
Date: Thu, 3 Mar 2022 11:22:26 -0500
Subject: [PATCH] fix note

---
 R/smooths-types.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/smooths-types.R b/R/smooths-types.R
index dfaea59d..1c8e9f80 100644
--- a/R/smooths-types.R
+++ b/R/smooths-types.R
@@ -206,11 +206,11 @@ ICAR_s_space_time <- function(patches, space, time_levels, bs, xt, vars, k, is_s
   xt_list <- list(xt = list(ret_time$xt_list, ret_space$xt_list))
 
   if(!is.null(xt_list$xt[[1]])){
-    xt_list$xt[[1]] <- list(penalty = rlang::expr(pen_mat_time))
+    xt_list$xt[[1]] <- list(penalty = str2lang("pen_mat_time"))
   }
 
   if(!is.null(xt_list$xt[[2]])){
-    xt_list$xt[[2]] <- list(penalty = rlang::expr(pen_mat_space))
+    xt_list$xt[[2]] <- list(penalty = str2lang("pen_mat_space"))
   }
 
   return(list(k = k, bs = bs, xt = xt, vars = vars, xt_list = xt_list))