commit 78b46f885463af14cab6a6fceb113ecdcb40783e
Author: aslane <aslane@mortreau.fr>
Date:   Tue Aug 6 08:27:18 2024 +0000

    Téléverser les fichiers vers "/"

diff --git a/.RData b/.RData
new file mode 100644
index 0000000..b4c158c
Binary files /dev/null and b/.RData differ
diff --git a/.Renviron b/.Renviron
new file mode 100644
index 0000000..35c3703
--- /dev/null
+++ b/.Renviron
@@ -0,0 +1,7 @@
+AUTHORIZE_URL=https://pcis.okta.com/oauth2/default/v1/authorize
+TOKEN_URL=https://pcis.okta.com/oauth2/default/v1/token
+USERINFO_URL=https://pcis.okta.com/oauth2/default/v1/userinfo
+URI_URL=http://localhost:8080
+CLIENT_ID=0oabol13t1UxWlYHF417
+CLIENT_SECRET=zmSdWvD8RSaMsq7EjEl3m8D-PX7pEYvm38SrTvJ5dStJokDxA231bv0TJJDzK4MS
+BASE_URL=https://pcis.okta.com/oauth2/default/v1
\ No newline at end of file
diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..31b2943
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,96 @@
+shiny::runApp('Downloads/test_app/test_app/app')
+install.packages("useShinyjs")
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+install.packages(c("backports", "BH", "boot", "brio", "broom", "bslib", "cachem", "callr", "cli", "cluster", "codetools", "common", "commonmark", "cowplot", "cpp11", "crayon", "crul", "curl", "data.table", "DescTools", "digest", "doBy", "DT", "emmeans", "estimability", "evaluate", "expm", "FactoMineR", "fansi", "farver", "fastmap", "flextable", "fmtr", "foreign", "fs", "gdtools", "ggplot2", "ggrepel", "ggsci", "gh", "glue", "gtable", "highr", "Hmisc", "htmltools", "htmlwidgets", "httpuv", "httr2", "igraph", "insight", "jsonlite", "KernSmooth", "knitr", "later", "lattice", "leaps", "lifecycle", "lme4", "markdown", "matrixStats", "mgcv", "minqa", "multcompView", "MuMIn", "munsell", "mvtnorm", "nanotime", "nlme", "nloptr", "officer", "openssl", "pbkrtest", "pkgbuild", "pkgload", "processx", "progress", "promises", "ps", "quantreg", "ragg", "Rcpp", "RcppEigen", "readr", "remotes", "reporter", "rlang", "rmarkdown", "rpart", "rstudioapi", "sass", "shiny", "shinyWidgets", "SparseM", "spatial", "stringi", "stringr", "survival", "systemfonts", "testthat", "textshaping", "tidyr", "tidyselect", "tinytex", "usethis", "uuid", "vctrs", "viridis", "withr", "xfun", "yaml", "zip"))
+setwd("~/Desktop/RES-LOC-INTERFACE_STATISTIQUES")
+shiny::runApp()
+required_packages <- c(
+"shiny", "shinythemes", "DT", "ggplot2", "gridExtra",
+"emmeans", "readxl", "dplyr", "carData", "car",
+"factoextra", "shinylogs", "plotly", "auth0",
+"httr", "shinyjs", "openssl", "urltools",
+"pls", "shinyBS", "multcomp","lme4","nlme"
+)
+# Fonction pour vérifier et charger les packages
+load_or_install <- function(packages) {
+for (pkg in packages) {
+if (!require(pkg, character.only = TRUE)) {
+install.packages(pkg, dependencies = TRUE)
+require(pkg, character.only = TRUE)
+}
+}
+}
+# Charger les packages requis
+load_or_install(required_packages)
+runApp()
+runApp()
+options(shiny.port=8080)
+required_packages <- c(
+"shiny", "shinythemes", "DT", "ggplot2", "gridExtra",
+"emmeans", "readxl", "dplyr", "carData", "car",
+"factoextra", "shinylogs", "plotly", "auth0",
+"httr", "shinyjs", "openssl", "urltools",
+"pls", "shinyBS", "multcomp","lme4","nlme"
+)
+# Fonction pour vérifier et charger les packages
+load_or_install <- function(packages) {
+for (pkg in packages) {
+if (!require(pkg, character.only = TRUE)) {
+install.packages(pkg, dependencies = TRUE)
+require(pkg, character.only = TRUE)
+}
+}
+}
+# Charger les packages requis
+load_or_install(required_packages)
+options(shiny.port=8080)
+source("ui.R")
+source("server.R")
+shinyApp(ui = ui, server = server)
+runApp()
+required_packages <- c(
+"shiny", "shinythemes", "DT", "ggplot2", "gridExtra",
+"emmeans", "readxl", "dplyr", "carData", "car",
+"factoextra", "shinylogs", "plotly", "auth0",
+"httr", "shinyjs", "openssl", "urltools",
+"pls", "shinyBS", "multcomp","lme4","nlme"
+)
+# Fonction pour vérifier et charger les packages
+load_or_install <- function(packages) {
+for (pkg in packages) {
+if (!require(pkg, character.only = TRUE)) {
+install.packages(pkg, dependencies = TRUE)
+require(pkg, character.only = TRUE)
+}
+}
+}
+# Charger les packages requis
+load_or_install(required_packages)
+options(shiny.port=8080)
+source("ui.R")
+source("server.R")
+shinyApp(ui = ui, server = server)
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+runApp()
+data
+merged_data_type()
+data
+runApp()
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..f30a3c2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+.httr-oauth
diff --git a/app.R b/app.R
new file mode 100644
index 0000000..659b608
--- /dev/null
+++ b/app.R
@@ -0,0 +1,28 @@
+required_packages <- c(
+  "shiny", "shinythemes", "DT", "ggplot2", "gridExtra", 
+  "emmeans", "readxl", "dplyr", "carData", "car",  
+  "factoextra", "shinylogs", "plotly", "auth0", 
+  "httr", "shinyjs", "openssl", "urltools", 
+  "pls", "shinyBS", "multcomp","lme4","nlme","MuMIn","writexl"
+)
+
+# Fonction pour vérifier et charger les packages
+load_or_install <- function(packages) {
+  for (pkg in packages) {
+    if (!require(pkg, character.only = TRUE)) {
+      install.packages(pkg, dependencies = TRUE,repos='http://cran.rstudio.com/')
+    }
+    library(pkg,character.only=TRUE)
+  }
+}
+install.packages("shinyBS",repos='http://cran.rstudio.com/')
+library("shinyBS")
+# Charger les packages requis
+load_or_install(required_packages)
+
+options(shiny.port=8080)
+options(lauch.browser=FALSE)
+source("ui.R")
+source("server.R")
+
+shinyApp(ui = ui, server = server)
\ No newline at end of file