Create new strategy using scaffolder

traitecoevo · Feb 11, 2024 · 2adb90f · 2adb90f
1 parent 2f54741
commit 2adb90f
Show file tree

Hide file tree

Showing 17 changed files with 7,486 additions and 344 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
diff --git a/R/RcppR6.R b/R/RcppR6.R
diff --git a/R/strategy_support.R b/R/strategy_support.R
@@ -9,6 +9,7 @@
 make_hyperpar <- function(type) {
   switch(type,
          FF16=make_FF16_hyperpar,
+         TF24=make_TF24_hyperpar,
          FF16w=make_FF16w_hyperpar,
          FF16r=make_FF16r_hyperpar,
          K93=make_K93_hyperpar,
@@ -21,6 +22,7 @@ param_hyperpar <- function(parameters) {
   type <- attr(parameters$strategy_default, "class")
   switch(type,
          FF16_Strategy=FF16_hyperpar,
+         TF24_Strategy=TF24_hyperpar,
          FF16w_Strategy=FF16w_hyperpar,
          FF16r_Strategy=FF16r_hyperpar,
          K93_Strategy=K93_hyperpar,
@@ -35,6 +37,7 @@ param_hyperpar <- function(parameters) {
 hyperpar <- function(type) {
   switch(type,
          FF16=FF16_hyperpar,
+         TF24=TF24_hyperpar,
          FF16w=FF16w_hyperpar,
          FF16r=FF16r_hyperpar,
          K93=K93_hyperpar,
@@ -46,6 +49,7 @@ hyperpar <- function(type) {
 environment_type <- function(type) {
   switch(type,
          FF16=sprintf("FF16_Env"),
+         TF24=sprintf("TF24_Env"),
          FF16w=sprintf("FF16_Env"),
          FF16r=sprintf("FF16_Env"),
          K93=sprintf("K93_Env"),
@@ -67,6 +71,7 @@ make_environment <- function(type = NULL, parameters = NULL, ...) {
 
   switch(type,
          FF16=FF16_make_environment(...),
+         TF24=TF24_make_environment(...),
          FF16w=FF16w_make_environment(...),
          FF16r=FF16r_make_environment(...),
          K93=K93_make_environment(...),
@@ -77,6 +82,7 @@ node_schedule_default <- function(p) {
   cl <- class(p)[[1]]
   switch(cl,
          "Parameters<FF16,FF16_Env>"=`node_schedule_default__Parameters___FF16__FF16_Env`,
+         "Parameters<TF24,TF24_Env>"=`node_schedule_default__Parameters___TF24__TF24_Env`,
          "Parameters<FF16w,FF16_Env>"=`node_schedule_default__Parameters___FF16w__FF16_Env`,
          "Parameters<FF16r,FF16_Env>"=`node_schedule_default__Parameters___FF16r__FF16_Env`,
          "Parameters<K93,K93_Env>"=`node_schedule_default__Parameters___K93__K93_Env`,
@@ -87,6 +93,7 @@ make_node_schedule <- function(p) {
   cl <- class(p)[[1]]
   switch(cl,
          "Parameters<FF16,FF16_Env>"=`make_node_schedule__Parameters___FF16__FF16_Env`,
+         "Parameters<TF24,TF24_Env>"=`make_node_schedule__Parameters___TF24__TF24_Env`,
          "Parameters<FF16w,FF16_Env>"=`make_node_schedule__Parameters___FF16w__FF16_Env`,
          "Parameters<FF16r,FF16_Env>"=`make_node_schedule__Parameters___FF16r__FF16_Env`,
          "Parameters<K93,K93_Env>"=`make_node_schedule__Parameters___K93__K93_Env`,