In arsilva87/hydropaper: Water-Sensitive Paper Analysis

knitr::opts_chunk$set(echo=FALSE, message = FALSE, 
                      warning = FALSE, comment="")

---

Paper (detected) dimensions

y <- as.list(params$x)
if(inherits(y, "hydropaper")) {
  dim(y$binary)
} else {
  nlc <- sapply(y, '[[', 'binary', USE.NAMES = TRUE)
  sapply(nlc, dim)
}

Spray parameters

if(inherits(y, "hydropaper")) {
  print(y)
  plot(y)
} else {
  for(i in 1:length(y)) {
    cat(names(y[i]))
    print(y[[i]])
    plot(y[[i]])
  }
}

---

Date and time: r Sys.time()

This document was automatically generated with package hydropaper

Powered by The Master in Plant Protection Program - Instituto Federal Goiano

arsilva87/hydropaper documentation built on April 4, 2022, 10:47 a.m.