last update before major changes

davidcarayon · Dec 9, 2020 · 9596e54 · 9596e54
1 parent c30a83b
commit 9596e54
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 6 deletions.
diff --git a/R/PolarComponent.R b/R/PolarComponent.R
@@ -24,15 +24,14 @@
 #' IDEAres <- PolarComponent(IDEAdata)
 PolarComponent <- function(IDEAdata) {
 
-
-  # PDF temporaire
-  temp_pdf <- file.path(tempdir(),"plot.pdf")
-
-
   Encoding(list_max_compo$composante) <- "UTF-8"
 
   singleplots <- function(dataset) {
 
+
+    # PDF temporaire
+    temp_pdf <- file.path(tempdir(),"plot.pdf")
+
     component_data <- dataset %>% distinct(composante,dimension,composante_value) %>%
       inner_join(list_max_compo, by = "composante") %>%
       mutate(score = round(composante_value/max_compo*100)) %>%

diff --git a/R/importIDEA.R b/R/importIDEA.R
@@ -1092,7 +1092,6 @@ importIDEA <- function(input, anonymous = FALSE) {
 
 
 
-
     end_nodes <- list("Robustesse" = node_10, "Capacité" = node_20, "Autonomie" = node_26, "Responsabilité" = node_41, "Ancrage" = node_46, Global = node_final)
 
     ## On supprime les noeuds intermédiaires

diff --git a/www/ideatools.png b/www/ideatools.png
diff --git a/www/logo_hex.png b/www/logo_hex.png
Original file line number	Diff line number	Diff line change
Expand Up		@@ -1092,7 +1092,6 @@ importIDEA <- function(input, anonymous = FALSE) {




		end_nodes <- list("Robustesse" = node_10, "Capacité" = node_20, "Autonomie" = node_26, "Responsabilité" = node_41, "Ancrage" = node_46, Global = node_final)

		## On supprime les noeuds intermédiaires
Expand Down