two-column approach (probably won't be used)

Author: topepo

NAMESPACE

@@ -145,6 +145,7 @@ export(new_model_spec)
 export(null_model)
 export(null_value)
 export(nullmodel)
+export(parsnip_addin)
 export(pred_value_template)
 export(predict.model_fit)
 export(predict_class.model_fit)
@@ -189,7 +190,6 @@ export(update_engine_parameters)
 export(update_main_parameters)
 export(varying)
 export(varying_args)
-export(write_parsnip_specs)
 export(xgb_train)
 importFrom(dplyr,arrange)
 importFrom(dplyr,as_tibble)

NEWS.md

@@ -1,6 +1,6 @@
 # parsnip (development version)
 
- * An RStudio add-in is availble that makes writing multiple `parsnip` model specifications to the source window. It can be accessed via the IDE addin menus or by calling `write_parsnip_specs()`.
+ * An RStudio add-in is availble that makes writing multiple `parsnip` model specifications to the source window. It can be accessed via the IDE addin menus or by calling `parsnip_addin()`.
 
 # parsnip 0.1.4
 

R/add_in.R

@@ -1,12 +1,12 @@
 #' Start an RStudio Addin that can write model specifications
 #'
-#' `write_parsnip_specs()` starts a process in the RStudio IDE Viewer window
+#' `parsnip_addin()` starts a process in the RStudio IDE Viewer window
 #' that allows users to write code for `parsnip` model specifications from
 #' various R packages. The new code is written to the current document at the
 #' location of the cursor.
 #'
 #' @export
-write_parsnip_specs <- function() {
+parsnip_addin <- function() {
   sys.source(
     system.file("add-in", "gadget.R", package = "parsnip", mustWork = TRUE),
     envir = rlang::new_environment(parent = rlang::global_env()),

inst/add-in/gadget.R

@@ -64,22 +64,28 @@ parsnip_spec_add_in <- function() {
     miniPage(
       gadgetTitleBar("Write out model specifications"),
       miniContentPanel(
-        radioButtons(
-          "model_mode",
-          label = h3("Type of Model"),
-          choices = c("Classification", "Regression")
-        ),
-        checkboxInput(
-          "tune_args",
-          label = "Tag parameters for tuning (if any)?",
-          value = TRUE
-        ),
-        textInput(
-          "pattern",
-          label = "Match on (regex)"
-        ),
-        tags$br(),
-        uiOutput("model_choices")
+        fillRow(
+          fillCol(
+            radioButtons(
+              "model_mode",
+              label = h3("Type of Model"),
+              choices = c("Classification", "Regression")
+            ),
+            checkboxInput(
+              "tune_args",
+              label = "Tag parameters for tuning (if any)?",
+              value = TRUE
+            ),
+            textInput(
+              "pattern",
+              label = "Match on (regex)"
+            )
+          ),
+          fillRow(
+            miniContentPanel(uiOutput("model_choices_left")),
+            miniContentPanel(uiOutput("model_choices_right"))
+          )
+        )
       ),
       miniButtonBlock(
         actionButton("write", "Write specification code", class = "btn-success")
@@ -101,19 +107,37 @@ parsnip_spec_add_in <- function() {
         models
       }) # get_models
 
-      output$model_choices <- renderUI({
+      output$model_choices_left <- renderUI({
 
         model_list <- get_models()
 
         choices <- paste0(model_list$model, " (", model_list$engine, ")")
+        choices <- unique(choices)
+        # ind <- ceiling(length(choices)/2)
+        # choices <- choices[1:ind]
 
         checkboxGroupInput(
-          inputId = "model_name",
-          label = "Model",
-          choices = c(unique(choices))
+          inputId = "model_name_left",
+          label = "",
+          choices = choices
         )
-      }) # model_choices
+      }) # model_choices_right
+
+      output$model_choices_right <- renderUI({
+
+        model_list <- get_models()
 
+        choices <- paste0(model_list$model, " (", model_list$engine, ")")
+        choices <- unique(choices)
+        ind <- ceiling(length(choices)/2) + 1
+        choices <- choices[ind:length(choices)]
+
+        checkboxGroupInput(
+          inputId = "model_name_right",
+          label = "",
+          choices = choices
+        )
+      }) # model_choices_right
 
       create_code <- reactive({
 
@@ -124,7 +148,8 @@ parsnip_spec_add_in <- function() {
         selected <- model_db[model_db$label %in% input$model_name,]
         selected <- selected[selected$mode %in% model_mode,]
 
-        res <- purrr::map_chr(1:nrow(selected), ~ make_spec(selected[.x,], tune_args = input$tune_args))
+        res <- purrr::map_chr(1:nrow(selected),
+                              ~ make_spec(selected[.x,], tune_args = input$tune_args))
 
         paste0(res, sep = "\n\n")