r - Error in UseMethod("xtable") -

-

i trying load multiple files , merge using reduce function... tried several options got same error got 'xtable' applied object of class "character"

server.r

library(shiny)  shinyserver(function(input,output) {     output$data <- renderui({         res <- lapply(             1:input$fnos,             function(i) {                 fileinput(paste("file", i),                 "load file",                 accept=c(                     'text/csv',                     'text/comma-separated-values',                     'text/tab-separated-values',                     'text/plain','.csv','.tsv' ))}         )         do.call(sidebarpanel,res)        })      output$multi <- rendertable({         infile <- list(             lapply(1:input$fnos, function(i) {input[[paste("file",i)]]})         )[[1]]          # data frame names         df <- (letters[1:input$fnos])          # trying use assign function create         # different dataframes using read.csv         (i in 1:input$fnos) {assign(df[i], read.csv(infile[[c(i,4)]]))}          #merging using reduce function         merged <- reduce(function(x,y) merge(x,y), list(df))         # getting error here     })  })

ui.r

library(shiny)  shinyui(fluidpage(     titlepanel(title="multiple file load"),     sidebarlayout(         sidebarpanel(             numericinput("fnos","files input",1)),         mainpanel(uioutput("data"), tableoutput("multi"))     ) ))

you reduce wrong thing. assuming have 2 files 'file1.csv', 'file2.csv' should work larger number of files well:

> write.csv(structure(list(id = 1:3, x = 4:6), .names = c("x", "y"), class = "data.frame", row.names = c(na, -3l)), 'file1.csv', row.names=false) > write.csv(structure(list(id = 1:2, y = 9:10), .names = c("x", "z"), class = "data.frame", row.names = c(na, -2l)), 'file2.csv', row.names=false) > dfs <- lapply(list.files(pattern="file[1-2]\\.csv$"), read.csv) > dfs [[1]]   x y 1 1 4 2 2 5 3 3 6  [[2]]   x  z 1 1  9 2 2 10

you can use either reduce: 

> reduce(merge, dfs)   x y  z 1 1 4  9 2 2 5 10

or better simple do.call:

> do.call(merge, dfs)   x y  z 1 1 4  9 2 2 5 10

if want translate app can use this:

reduce(     merge, lapply(         paste('file', 1:input$fnos),         function(x) read.csv(input[[x]]$datapath) ))

just remember checking if input set.


Comments

Post a Comment

Popular posts from this blog

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops', ...
Read more

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null ...
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens ...
Read more