History: Profile_r_test13_parse_body

• «
• »

            ! Unfinished work. Alfa state.

This page first of all produces a simple barchart using conventional R body content ie with

!!- Barplot
{R(bg="yellow")}
abundance <- matrix(c(8, 4, 7),ncol=3,byrow=TRUE);
colnames(abundance) <- c("Jan","Feb","Mar");
rownames(abundance) <- c("total abundance");
abundance;
barplot(abundance);
{R}

!!- Using Ajax services
http://localhost/tiki-ajax_services.php?controller=tracker&action=export_items&trackerId=2&encoding=UTF-8&separator=%2C&delimitorL=%22&delimitorR=%22&CR=%25%25%25&listfields[]=9&listfields[]=10&recordsMax=-1

!!- Using sjPlot
{RR(bg="yellow" parse_body="n" echodebug=1)}
r <- getOption("repos")
r["CRAN"] <- "http://ftp.heanet.ie/mirrors/cran.r-project.org/"
options(repos=r)
install.packages("sjPlot")
library("sjPlot")


#####EXAMPE from elsewhere
marca<-c("opel","renault","renault")
model<-c("corsa","laguna","modus")
cilindrada<-c(1.2,1.9,1.5)
color<-c("blanc","vermell","violeta")
cotxes<-data.frame(marca,model,cilindrada,color)
cotxes

# load libraries
library(sjPlot)
library(sjmisc)
# init default theme for plots
sjp.setTheme(geom.label.size = 2.5, axis.title.size = .9, axis.textsize = .9)
sjp.frq(cotxes$marca)
sjp.frq(cotxes[,1])
{RR}

See:
* https://strengejacke.wordpress.com/2013/07/17/plotting-likert-scales-net-stacked-distributions-with-ggplot-rstats/
* http://strengejacke.de/sjPlot/custplot/


!! Using TrackerList
__Wiki a wiki template__
{trackerlist trackerId=2 fields="9:10:11" list_mode=csv max=4 showpagination="n" tplwiki=r_demo13_template01}

__Without a wiki template, and with param list_mode=csv__
{trackerlist trackerId=2 fields="9:10:11" list_mode=csv max=4 showpagination="n"}

__With a wiki template, and without param list_mode=csv__
{trackerlist trackerId=2 fields="9:10:11" max=4 showpagination="n" tplwiki=r_demo13_template01}

See bug report related to param list_mode=csv
"plugin trackerlist param list_mode=csv does nothing for me" - https://dev.tiki.org/item5688

!! R
{R(bg="yellow" parse_body="y" echodebug=1)}
abundance <- matrix(c({trackerlist trackerId=2 fields="9:10:11" list_mode=csv max=4 showpagination="n" tplwiki=r_demo13_template01}),ncol=3,byrow=TRUE);
abundance;
barplot(abundance);
{R}
In the above the echodebug now shows the body content both pre and post parsing so that it can be checked.


So now that you can generate output from a tracker using a trackerlist plugin, or for more flexibility using the list plugin, then a lot more options become possible with R   :-)