In sbalci/histopathology-template: Template of R Codes Used in Histopathology Research.

pre.jamovitable{
  color:black;
  background-color: white;
  margin-bottom: 35px;  
}

 jtable<-function(jobject,digits=3) {
  snames<-sapply(jobject$columns,function(a) a$title)
  asDF<-jobject$asDF
  tnames<-unlist(lapply(names(asDF) ,function(n) snames[[n]]))
  names(asDF)<-tnames
  kableExtra::kable(asDF,"html",
                    table.attr='class="jmv-results-table-table"',
                    row.names = F,
                    digits=3)
}

mytable <- jmv::anovaOneW(
    formula = Sepal.Length ~ Species,
    data = iris
    )

cat("<pre class='jamovitable'>")
print(jtable(mytable$anova))
cat("</pre>")

sbalci/histopathology-template documentation built on June 29, 2023, 5:52 a.m.