change area field class to numeric. return full tuned grid without sp…

…lits.

R/model_tune.R

@@ -19,6 +19,8 @@ model_tune <- function(wf, splits, grid) {
     control = tune::control_grid(verbose = TRUE)
   )
 
-  tune::show_best(tuned_grid, metric = "brier_class")
+  list(obj_class = class(tuned_grid), obj_attributes = attributes(tuned_grid), tuned_grid= tuned_grid |> select(-splits))
+
+  # tune::show_best(tuned_grid, metric = "brier_class")
 
 }

_targets.R

@@ -532,7 +532,8 @@ model_targets <- tar_plan(
                        rvf_outbreaks, 
                        by = join_by(date, shapeName)) |>  
                mutate(outbreak_30 = factor(replace_na(outbreak_30, FALSE))) |> 
-               left_join(rsa_polygon_spatial_weights, by = "shapeName")
+               left_join(rsa_polygon_spatial_weights, by = "shapeName") |> 
+               mutate(area = as.numeric(area))
   ),
 
   # Splitting --------------------------------------------------