app shiny for linear model

Author: GuyliannEngels

inst/shiny/linear_model/server.R

@@ -0,0 +1,25 @@
+#
+# This is the server logic of a Shiny web application. You can run the
+# application by clicking 'Run App' above.
+#
+# Find out more about building applications with Shiny here:
+#
+#    http://shiny.rstudio.com/
+#
+
+library(shiny)
+SciViews::R()
+
+# Define server logic required to draw a histogram
+shinyServer(function(input, output) {
+
+    trees <- data.io::read("trees", package = "datasets", lang = "FR") %>.%
+        dplyr::select(., -height)
+
+    output$trees_plot <- renderPlot({
+
+        chart::chart(trees, volume ~ diameter) +
+            ggplot2::geom_point() +
+            geom_abline(aes(slope = input$slope_ui, intercept = input$intercept_ui))
+    })
+})

inst/shiny/linear_model/ui.R

@@ -0,0 +1,27 @@
+library(shiny)
+
+titlePanel_h4 <- function(title, windowTitle = title) {
+  tagList(tags$head(tags$title(windowTitle)), h4(title))
+}
+
+# Define UI for application that draws a histogram
+shinyUI(fluidPage(
+    titlePanel_h4("Le modèle linéaire intuitif"),
+    sidebarLayout(
+        sidebarPanel(
+          withMathJax(),
+          p("Une droite suit l'équation mathématique suivant: $$ y = ax + b $$ "),
+          numericInput(inputId = "slope_ui", label = "Valeur de la pente (a)",
+            value = 0.00, min = -10.00, max = 10.00, step = 0.5),
+          p("Valeur par défaut : 0 "),
+          numericInput(inputId = "intercept_ui", label = "Valeur de l'ordonnée à l'origine (b)",
+            value = 1.00, min = -10.00, max = 10.00, step = 0.5),
+          p("Valeur par défaut : 1 ")
+        ),
+        mainPanel(
+          h4("Ajustez aux mieux la droite dans ce nuage de points"),
+          p("Nous pouvons traduire cette formule pour notre cas concret $$Volume = pente \\times diametre \\ + \\ ordonnee \\ à \\ l \\ origine$$ "),
+          plotOutput("trees_plot")
+        )
+    )
+))