phgrosjean

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
SciViews::R
```

phgrosjean

library(shiny)
library(simecol)

ui <- fluidPage(
  title = "Respirometer designer",
  plotOutput(outputId = "O2Plot"),
  hr(),
  fluidRow(
    column(3, offset = 0,
      # Respirometer characteristics

phgrosjean

# Note: the URL corresponds to the 'Download' button on the page
trap <- data.io::read$csv("https://zenodo.org/record/2533383/files/export.csv?download=1")

phgrosjean

# Sketch for a form() function to be inserted in the future form.io R package
# Copyright (c) 2019, Philippe Grosjean (phgrosjean@sciviews.org)
# 
# TODO:
# - Use something else than caption (may be comment?) for the default legend of
#   the tables
# - ...

#' Form tabular and textual output of various R objects using markdown
#'

phgrosjean

phgrosjean

"Ferme","Variete","Rendement"
"X","A",0.327
"X","A",0.289
"X","B",0.500
"X","B",0.510
"X","C",0.442
"X","C",0.463
"X","D",0.471
"X","D",0.460
"Y","A",0.532

phgrosjean

"Ferme","Variete","Rendement"
"X","A",0.327
"X","B",0.500
"X","C",0.442
"X","D",0.471
"Y","A",0.532
"Y","B",0.599
"Y","C",0.516
"Y","D",0.638
"Z","A",0.269

phgrosjean

ttyConfig <- function(prompt = "R", col = 7) {
  if (isColorXterm()) {
    ## This is a scheme assuming black text on white background
    colorout::setOutputColors256(normal = c(0, 0, 238), number = c(0, 0, 0),
      negnum = c(0, 0, 88), zero = c(0, 0, 202), date = c(0, 0, 22),
      string = c(0, 0, 17), const = c(0, 0, 54), false = c(0, 0, 202), true = 22,
      infinite = c(0, 0, 202), stderror = 1, warn = c(1, 0, 1), error = c(1, 0, 1),
      verbose = FALSE, zero.limit = .Machine$double.xmin)
  }	
  ## Colorize also the prompt and add a line before it

phgrosjean

data(ToothGrowth)
TG.aov <- aov(len ~ dose * supp, data = ToothGrowth)
anova(TG.aov)
par(mfrow = c(2,2))
plot(TG.aov)
par(mfrow = c(1,1))
coplot(len ~ dose | supp, data = ToothGrowth, panel = panel.smooth)