| library(shiny) | |
| library(shinyFeedback) | |
| library(flow) | |
| # Cette app shiny est un outil afin de faciliter la correction des projets des étudiants. Il s'agit ici d'un MVP. | |
| # | |
| ui <- fluidPage( | |
| titlePanel("Analyse du projet GitHub"), | |
| hr(), | |
| fluidRow( |
| knit_rmd <- function(path = ".") { | |
| direction <- fs::dir_ls(path = ".", recursive = TRUE, regexp = "[.][R-r]md$") | |
| t <- purrr::map(direction, purrr::safely(rmarkdown::render)) | |
| df <- tibble::tibble( | |
| files = names(t), | |
| result = stringr::str_replace( | |
| string = as.character(purrr::map(t, "result")), | |
| pattern = "NULL", replacement = "ERROR"), | |
| call = as.character(purrr::map(t, c("error", "call"))), | |
| message = as.character(purrr::map(t, c("error", "message"))) |
| library(shiny) | |
| library(shinyFeedback) | |
| # note : tab_user peut être facilement changé par une table des utilisateurs du cours,... | |
| tab_user <- tibble::tibble( | |
| login = c("AnakinSkywalker", "LeiaOrgana"), | |
| email = c("anakin.skywalker@student.umons.ac.be", "leia.organa@student.umons.ac.be")) | |
| ui <- fluidPage( |
L'étude porte sur les variaitons morhphologiques de trois espèces d'iris que sont Iris setosa , Iris versicolor, Iris virginica.
Trois espèces d'iris ont été récoltées en Gaspésie (Québec, Canada) : Iris setosa , Iris versicolor, Iris virginica. Cinquantes individus par espèces ont été prélevés afin de mesurer la longueur et la largeur des pétales et sépales en centimètre.
| # Analyse du jeu de données portant sur 3 espèces d'iris | |
| # Engels Guyliann | |
| # 2018-09-04 | |
| # Importation des principaux outils permetant l'analyse des données | |
| SciViews::R | |
| # Importation des données | |
| is <- read(package = "datasets", "iris", lang = "fr") |