Shiny applications B04... -> B05...

Author: phgrosjean

NEWS.md

@@ -4,6 +4,8 @@
 
 -   Learnr **B02La_reg_multi** completely rewritten
 
+-   Shiny application B04... renamed B05...
+
 # BioDataScience2 2022.1.1
 
 -   Learnrs B00 and B01 revised

inst/shiny/B04Sa_micmen/app.R renamed to inst/shiny/B05Sa_micmen/app.R

@@ -78,7 +78,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }

inst/shiny/B04Sb_exponent/app.R renamed to inst/shiny/B05Sb_exponent/app.R

@@ -80,7 +80,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }

inst/shiny/B04Sc_logis/app.R renamed to inst/shiny/B05Sc_logis/app.R

@@ -86,7 +86,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }

inst/shiny/B04Sd_gen_logis/app.R renamed to inst/shiny/B05Sd_gen_logis/app.R

@@ -89,7 +89,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }

inst/shiny/B04Se_gompertz/app.R renamed to inst/shiny/B05Se_gompertz/app.R

@@ -85,7 +85,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }

inst/shiny/B04Sf_richards/app.R renamed to inst/shiny/B05Sf_richards/app.R

@@ -90,7 +90,7 @@ server <- function(input, output, session) {
     data <- model_predict()
     p <- graph
 
-    if(!any(is.nan(data$y_predit))) {
+    if (!any(is.nan(data$y_predit))) {
       p <- p +
         ggplot2::geom_line(chart::f_aes(y_predit ~ x), color = "red", data = data)
     }