r - Sparktables: How can I output addition table elements? -

-

i have data frame (counts of faults in ms office on number of years) using generate sparktable successfully: 

df_office_final_sparktable component   faults time excel       2      2001 excel       1      2002 excel       5      2003 excel       5      2004 excel       5      2005 excel       6      2006 excel       0      2007 excel       0      2008 excel       0      2009 excel       0      2010 excel       0      2011 excel       0      2012 ppt         1      2001 ppt         1      2002 ppt         1      2003 ppt         1      2004 ppt         2      2005 ppt         3      2006 ppt         0      2007 ppt         0      2008 ppt         0      2009 ppt         0      2010 ppt         0      2011 ppt         0      2012 word        5      2001 word        4      2002 word        3      2003 word        1      2004 word        3      2005 word        2      2006 word        5      2007 word        3      2008 word        0      2009 word        1      2010 word        0      2011 word        0      2012

here corresponding code: office_content<-list(

2001=function(x) { head(x,1) }, 2012=function(x) { tail(x,1) }, office_content[['office trend']]<-newsparkline()) office_vartype<-rep("outages",3)  df_office_final_sparktable<-df_office_final_sparktable[,c("component","faults","time")]  df_office_final_sparktable$time<-as.numeric(as.character(df_office_final_sparktable$time))     office_dat<-reshapeext(df_office_final_sparktable,idvar="component",varying=list(2)) office_sparktab<-newsparktable(office_dat,office_content,office_vartype) showsparktable (office_sparktab , outputtype = "html", filename = "t1")

can see able output table of 2001 , 2012 faults using head commands , corresponding sparkline. can't seem figure out how output fault totals 2002 - 2011 (inclusive) tried pull second row of dataframe using following code: 

df_office_final_sparktable[2:2, 1:3]

realise isn't correct there no way me map command function wondering need write 10 separate functions need call in order pull required fault totals each office component year on year?

thanks in advance, jonathan

ok figured 1 out. had create 10 functions pull 2nd row data frame so: 

head_row2_office <- function(x) { result <- subset(x, time =='2002' & component =="excel", select=c(1:3)) return (result) }

after had call functions in list function so: 

office_content<-list( jan=function(x) { head(x,1) }, feb=function(x) { head_row2_office(x) }, mar=function(x) { head_row3_office(x) }, apr=function(x) { head_row4_office(x) }, may=function(x) { head_row5_office(x) }, jun=function(x) { head_row6_office(x) }, jul=function(x) { head_row7_office(x) }, aug=function(x) { head_row8_office(x) }, sep=function(x) { head_row9_office(x) }, oct=function(x) { head_row10_office(x) }, nov=function(x) { head_row11_office(x) }, dec=function(x) { tail(x,1) }, office_content[['office trend']]<-newsparkline() )  office_vartype<-rep("outages",13) # set tables columns 13 table + graph df_office_final_sparktable<-df_office_final_sparktable[,c("component","faults","time")] df_office_final_sparktable$time<-as.numeric(as.character(df_office_final_sparktable$time)) office_dat<-reshapeext(df_office_final_sparktable,idvar="component",varying=list(2)) office_sparktab<-newsparktable(office_dat,office_content,office_vartype) showsparktable (office_sparktab , outputtype = "html", filename = "t1")


Comments

Post a Comment

Popular posts from this blog

gridview - Yii2 DataPorivider $totalSum for a column -

-
i have order , ordersearch models. in order list (actionindex) gridview there filtering , sorting. on of columns in order order_total (sum of products in order). i need implement sum of order_total in gridview. if manually counting activedataprovider->getmodels() array_map spend 3 seconds 3000 orders (localhost). don't want miss time. i see 2 ways make faster: create cache every filter , update lifetime (horrible) the interesting can right in ordersearch->search() method $query method. don't understand how can pass in controller. example of code 2nd way: class ordersearch extends order { public $totalsum; public function search($params) { $query = order::find(); $dataprovider = new activedataprovider([ 'query' => $query, ]); $this->load($params); $this->totalsum = $query->sum('order_total'); // works fast return $dataprovider; } } after i
Read more

java - Suppress Jboss version details from HTTP error response -

-
my jboss verson jboss eap 6.3 when kind of error response sent jboss, adds server information response. following sample row response: http/1.1 400 bad request server: apache-coyote/1.1 content-type: text/html;charset=utf-8 content-length: 2391 date: tue, 19 jul 2016 09:30:46 gmt connection: close jboss web/7.4.8.final-redhat-4 - jbweb000064: error report jbweb000065: http status 400 - org.codehaus.jackson.map.jsonmappingexception: can not construct instance of mybean.type string value 'xyz': value not 1 of declared enum instance names @ [source: org.jboss.resteasy.core.interception.messagebodyreadercontextimpl$inputstreamwrapper@5e421c2b; line: 14, column: 26] (through reference chain: requestargs["request"]) jbweb000309: type jbweb000067: status report jbweb000068: message org.codehaus.jackson.map.jsonmappingexception: can not construct instance of mybean.type string value 'xyz': value not 1 of declared enum instance names @ [source: org.jboss
Read more

Sass watch command compiles .scss files before full sftp upload -

-
i use winscp download , edit .scss files , sass on linux (on server) compile them .css . after saving file, use: sass scss/style.scss css/style.css , replaces css file compiled sccs. the problem i want skip part return command line after editing scss file, sake of automation , saving time. but, if use watch command: sass --watch scss/style.scss:css/style.css synchronize 2 files, alerts nonexistent css errors pop up: change detected to: scss/style.scss error scss/style.scss (line 232: invalid css after "...ht: bold; line-": expected "{", "") note that when file uploads quicker usual (sometimes happens) watch command job, no errors. this because, when file upload takes time, sass compiles scss file (on server) before uploaded remote folder. thus, compiles part of file, resulting in css errors. is there way set timer watch command waits few seconds after detects changes , before compiling? any other way overcome is, of course,
Read more