Merge branch 'master' of https://github.com/BioDataScience-Course/BioDataScience

Author: GuyliannEngels

NEWS.md

@@ -7,6 +7,8 @@
 ## Changes in version 0.15.0
 
 - Tutorial 10a_anova finalized
+- Addition of a test shiny app (histogram.R)
+
 
 ## Changes in version 0.14.0
 

inst/shiny/histogram/app.R

@@ -0,0 +1,26 @@
+# Histogram with variable classes
+
+ui <- fluidPage(
+  titlePanel(""), #"Choix des classes pour un histogramme"),
+  sidebarLayout(
+    sidebarPanel(
+      sliderInput(inputId = "bins", label = "Nombre de classes:",
+        min = 1, max = 50, value = 30)
+    ),
+    mainPanel(
+      plotOutput(outputId = "distPlot")
+    )
+  )
+)
+
+server <- function(input, output) {
+  output$distPlot <- renderPlot({
+    chart::chart(data = geyser, ~waiting) +
+      ggplot2::geom_histogram(bins = input$bins,
+        col = "white", fill = "#75AADB") +
+      ggplot2::ylab("Fréquence")
+  })
+}
+
+geyser <- data.io::read("geyser", package = "MASS", lang = "fr")
+shinyApp(ui, server)

inst/shiny/histogram/rsconnect/shinyapps.io/phgrosjean/histogram.dcf

@@ -0,0 +1,12 @@
+name: histogram
+title: histogram
+username:
+account: phgrosjean
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 590204
+bundleId: 1721590
+url: https://phgrosjean.shinyapps.io/histogram/
+when: 1543261164.38148
+asMultiple: FALSE
+asStatic: FALSE

inst/shiny/learnr/Test learnr/Test learnr.Rmd

@@ -0,0 +1,29 @@
+---
+title: ""
+output: learnr::tutorial
+runtime: shiny_prerendered
+---
+
+```{r setup, include=FALSE}
+library(learnr)
+knitr::opts_chunk$set(echo = FALSE)
+```
+
+Write a function that adds any two numbers and then call it:
+
+```{r add-function, exercise=TRUE, exercise.lines = 5}
+add <- function() {
+  
+}
+```
+
+```{r quiz}
+quiz(
+  question("Which package contains functions for installing other R packages?",
+    answer("base"),
+    answer("tools"),
+    answer("utils", correct = TRUE),
+    answer("codetools")
+  )
+)
+```

inst/shiny/learnr/Test learnr/Test_learnr.html

@@ -0,0 +1,12 @@
+name: learnr
+title: learnr
+username:
+account: phgrosjean
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 590599
+bundleId: 1721660
+url: https://phgrosjean.shinyapps.io/learnr/
+when: 1543264138.79986
+asMultiple: FALSE
+asStatic: FALSE