v 0.2.3

R/geometrical_data_analysis.R

@@ -2496,6 +2496,20 @@ material_colors_dark <- function() {
 
 
 
+# data(tea, package = "FactoMineR")
+# res.mca <- MCA2(tea, active_vars = 1:18)
+# plot <- res.mca %>%
+#   ggmca(tea, sup_vars = c("SPC"), ylim = c(NA, 1.2), text_repel = TRUE)
+# width = NULL
+# height = NULL
+# keep_ratio = TRUE
+# savewidget = FALSE
+# dir = NULL
+# name = "Plot"
+# replace = FALSE
+# open = rlang::is_interactive()
+# iframe = NULL
+# # pixel_width
 
 #' Pass a MCA plot into a html interactive plot
 #' @param plot The plot, created with \link{ggmca} or \link{ggca}.
@@ -2553,7 +2567,7 @@ ggi <- function(plot = ggplot2::last_plot(),
   #   #stringr::str_replace("DejaVu Sans Condensed", "DejaVu Sans")
   # }
 
-  if (missing(width)) {
+  if (is.null(width)) { #   if (missing(width)) {
     width <- grDevices::dev.size("in")[1]
 
   } else {
@@ -2564,7 +2578,7 @@ ggi <- function(plot = ggplot2::last_plot(),
     height <- width * plot$heigth_width_ratio
 
   } else {
-    if (missing(height)) {
+    if (is.null(height)) { #     if (missing(height)) {
       height <- grDevices::dev.size("in")[2]
     } else {
       height = height/2.54

R/utils.R

@@ -9,6 +9,9 @@
 #' @export
 #' @importFrom magrittr %>%
 #' @usage lhs \%>\% rhs
+#' @param lhs A value or the magrittr placeholder.
+#' @param rhs A function call using the magrittr semantics.
+#' @return Pipe an object forward into a function or call expression.
 NULL
 
 # Rlang .data to bind data masking variable in dplyr

README.Rmd

@@ -18,9 +18,8 @@ knitr::opts_chunk$set(
 
 <!-- badges: start -->
 
-[![R-CMD-check](https://github.com/BriceNocenti/ggfacto/workflows/R-CMD-check/badge.svg)](https://github.com/BriceNocenti/ggfacto/actions)
 [![R-CMD-check](https://github.com/BriceNocenti/ggfacto/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/BriceNocenti/ggfacto/actions/workflows/R-CMD-check.yaml)
-<!-- badges: end -->
+<!-- badges: end --> 
 
 Readable, complete and pretty graphs for correspondence analysis made with [FactoMineR](http://factominer.free.fr/). Many can be rendered as interactive html plots, showing useful informations at mouse hover. The interest is not mainly visual but statistical : it helps the reader to keep in mind the data contained in the cross-table or Burt table while reading correspondence analysis, thus preventing overinterpretation. Graphs are made with [ggplot2](https://ggplot2.tidyverse.org/), which means that you can use the `+` syntax to manually add as many graphical pieces you want, or change theme elements. 
 

README.md

@@ -5,7 +5,6 @@
 
 <!-- badges: start -->
 
-[![R-CMD-check](https://github.com/BriceNocenti/ggfacto/workflows/R-CMD-check/badge.svg)](https://github.com/BriceNocenti/ggfacto/actions)
 [![R-CMD-check](https://github.com/BriceNocenti/ggfacto/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/BriceNocenti/ggfacto/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->