non_package_files/render_exp.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

#print("sourcing render_exp.R now")

# all we do here is inferior to the same taht we do in render_exp, where multiple slections are possible. 
# here we do it different and buggy. 

render_exp_<<-function(tree,selection){
  sel<-c(attr(selection,"ancestry"),selection)
  #print("getting expresults:")
  expresults<-ephys2:::get_all_Series(tree[[sel[1:2]]], "NaPharm", PLXLSfile = "VG_Blocker_1.xls")  # we should find a more intelligent way to set / find plsxfile!
                                                                                                    # we have already set it for the series but this is not used here, so above is manually!
  #print("got expresults")
  require(ggplot2)
  p<-(ggplot(expresults, aes_string("Trace_Time", "min")) 
      +geom_line(aes(colour=factor(exp))) 
      +geom_point()
      +ggtitle("Summarized experiment data")
      +theme(plot.title = element_text(lineheight=.8, face="bold"))
  )
  print(p)
}