Cron job

.github/workflows/test_as_cran.yml

@@ -4,7 +4,10 @@ on:
   pull_request:
     branches: [ "main", "development" ]
   workflow_dispatch:
-
+   # every second month
+  schedule:
+    - cron: '0 9 5 1,3,5,7,9,11 *'
+
 permissions:
   contents: read
 

.github/workflows/test_ubuntu.yml

@@ -4,7 +4,10 @@ on:
   pull_request:
     branches: ["main", "development"]
   workflow_dispatch:
-
+   # every second month
+  schedule:
+    - cron: '0 9 5 1,3,5,7,9,11 *'
+
 permissions:
   contents: read
 

DESCRIPTION

@@ -14,7 +14,7 @@ Description: Provides regularized structural equation modeling
   ['lslx'](<https://github.com/psyphh/lslx>) packages.
 License: GPL (>= 2)
 Encoding: UTF-8
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 Depends: 
  lavaan,
@@ -24,6 +24,7 @@ Imports:
     RcppArmadillo,
     RcppParallel,
     ggplot2,
+    ggrepel,
     tidyr,
     stringr,
     numDeriv,

R/class-regularizedSEM.R

@@ -178,7 +178,8 @@ setMethod("BIC", "regularizedSEM", function (object, ...) {
 #' 
 #' @param x object of class gpRegularized
 #' @param y not used
-#' @param ... use regularizedOnly=FALSE to plot all parameters
+#' @param ... use regularizedOnly = FALSE to plot all parameters and addLabels = FALSE
+#' to remove labels to the lines
 #' @return either an object of ggplot2 or of plotly
 #' @export
 setMethod("plot", 
@@ -189,6 +190,11 @@ setMethod("plot",
             }else{
               regularizedOnly <- TRUE
             }
+            if("addLabels" %in% names(list(...))){
+              addLabels <- list(...)$addLabels
+            }else{
+              addLabels <- TRUE
+            }
             parameters <- x@parameters
             tuningParameters <- x@parameters[,!colnames(x@parameters)%in%x@parameterLabels,drop=FALSE]
             tuningParameters <- tuningParameters[,apply(tuningParameters,2,function(x) length(unique(x)) > 1),drop=FALSE]
@@ -220,17 +226,23 @@ setMethod("plot",
             }
 
             if(nTuning == 1){
-
-              return(
-                ggplot2::ggplot(data = parametersLong,
-                                mapping = ggplot2::aes(
-                                  x = .data[[colnames(tuningParameters)]], 
-                                  y = .data[["value"]],
-                                  group = .data[["name"]])) +
-                  ggplot2::geom_line(colour = "#008080")+
-                  ggplot2::ggtitle("Regularized Parameters")
-              )
-
+              plt <- ggplot2::ggplot(data = parametersLong,
+                                     mapping = ggplot2::aes(
+                                       x = .data[[colnames(tuningParameters)]], 
+                                       y = .data[["value"]],
+                                       group = .data[["name"]])) +
+                ggplot2::geom_line(colour = "#008080") +
+                ggplot2::ggtitle("Regularized Parameters") +
+                ggplot2::theme_bw()
+              if(addLabels){
+                plt <- plt +
+                  ggrepel::geom_label_repel(data = plt$data[plt$data[[colnames(tuningParameters)]] ==
+                                                       min(plt$data[[colnames(tuningParameters)]]), ],
+                                     ggplot2::aes(x = .data[[colnames(tuningParameters)]],
+                                                  y = .data[["value"]],
+                                                  label = .data[["name"]]))
+              }
+              return(plt)
             }else{
               parametersLong$name <- paste0(parametersLong$name, 
                                             "_",