ajout de la fonction noyau_skeleton()

NAMESPACE

@@ -116,6 +116,7 @@ export(issrha)
 export(itra)
 export(labeleasier)
 export(noyau_pmeasyr)
+export(noyau_skeleton)
 export(tdiag)
 exportClasses(pm_param)
 import(forcats)

R/main_before_utf.R

@@ -5638,7 +5638,7 @@ NULL
 #' p
 #' print(p)
 #' }
-#' 
+#' @seealso \code{\link{noyau_skeleton}}
 #' @export 
 noyau_pmeasyr <- function(...){
   params <- list(...)
@@ -5662,6 +5662,55 @@ print.pm_param <- function(p){
 
 }
 
+#' ~ par - Noyau de parametres
+#' 
+#' Générer un squelette de noyau de paramètres
+#' 
+#' Voir exemple
+#' 
+#' @author G. Pressiat
+#' 
+#' @examples
+#' \dontrun{
+#' 
+#' noyau_skeleton()
+#' ## résultat : 
+#' ## noyau_pmeasyr(
+#' ##   finess = '.........',
+#' ##   annee  = ....,
+#' ##   mois   = ..,
+#' ##   path   = ''
+#' ## ) -> p
+#'
+#' noyau_skeleton("alpha_bravo", T)
+#' 
+#' ## noyau_pmeasyr(
+#' ##   finess = '.........',
+#' ##   annee  = ....,
+#' ##   mois   = ..,
+#' ##   path   = ''
+#' ## ) -> alpha_bravo
+#' ## 
+#' ## # adezip(alpha_bravo, type = 'out')
+#' ## # adezip(alpha_bravo, type = 'in') 
+#'
+#' }
+#'
+#' @seealso \code{\link{noyau_pmeasyr}}
+#' @export 
+noyau_skeleton <- function(nom = "p", zip = F){
+  cat(paste0("\nnoyau_pmeasyr(
+  finess = \'.........\',
+  annee  = ....,
+  mois   = ..,
+  path   = \'\'
+) -> ", nom,  "\n\n"))
+
+  if (zip){
+    cat(paste0("# adezip(", nom, ", type = \'out\')\n# adezip(", nom, ", type = \'in\')"))
+  }
+}
+
 ##############################################
 ####################### LABELS ###############
 ##############################################

_pkgdown.yml

@@ -17,9 +17,11 @@ reference:
   - title: Noyau de paramètres
     contents:
     - noyau_pmeasyr
+    - noyau_skeleton
   - title: Autres
     contents:
     - tdiag
+    - dico
 
 navbar:
   title: pmeasyr

docs/pkgdown.css

@@ -137,9 +137,14 @@ pre, code {
   color: #333;
 }
 
-pre img {
+pre .img {
+  margin: 5px 0;
+}
+
+pre .img img {
   background-color: #fff;
   display: block;
+  height: auto;
 }
 
 code a, pre a {

docs/pkgdown.js

@@ -5,4 +5,41 @@ $(function() {
     offset: 60
   });
 
+  var cur_path = paths(location.pathname);
+  $("#navbar ul li a").each(function(index, value) {
+    if (value.text == "Home")
+      return;
+    if (value.getAttribute("href") === "#")
+      return;
+
+    var path = paths(value.pathname);
+    if (is_prefix(cur_path, path)) {
+      // Add class to parent <li>, and enclosing <li> if in dropdown
+      var menu_anchor = $(value);
+      menu_anchor.parent().addClass("active");
+      menu_anchor.closest("li.dropdown").addClass("active");
+    }
+  });
 });
+
+function paths(pathname) {
+  var pieces = pathname.split("/");
+  pieces.shift(); // always starts with /
+
+  var end = pieces[pieces.length - 1];
+  if (end === "index.html" || end === "")
+    pieces.pop();
+  return(pieces);
+}
+
+function is_prefix(needle, haystack) {
+  if (needle.length > haystack.lengh)
+    return(false);
+
+  for (var i = 0; i < haystack.length; i++) {
+    if (needle[i] != haystack[i])
+      return(false);
+  }
+
+  return(true);
+}

docs/pkgdown.yml

@@ -1,2 +1,7 @@
-reference_url: https://im-aphp.github.io/pmeasyr//reference
+urls:
+  reference: https://im-aphp.github.io/pmeasyr//reference
+  article: https://im-aphp.github.io/pmeasyr//articles
+articles:
+  vignette2: vignette2.html
+  vignette: vignette.html