loops - R loading multiple excel files and merge -


i have many excel files need load , merge single data frame.

the script below works! however, before merging files want paste each file name in new column.

library(gdata) library(tools) filelist <- list.files(pattern = "*\\.xlsx$") files = lapply(filelist, read.xls, header=true)  new = reduce(function(...) merge(..., all=t), files)

so added this:

files$source <- file_path_sans_ext(filelist)

however, didn't work.

my desired output is:

col1 col2 col3 source(this column doesnt exist in excel) abc  1    2    filename1 def  3    4    filename2

how can achieve this?

try

library(tools) source <- file_path_sans_ext(filelist) files1 <- map(cbind, files, source=source) files1 #[[1]] #  col1      col2   source #1    0.5365853 filname1 #2    0.4196231 filname1  #[[2]] # col1     col2   source #1    0.847460 filname2 #2    c 0.266022 filname2  #[[3]] # col1       col2   source #1    c -0.4664951 filname3 #2    c -0.8483700 filname3

data

set.seed(24) files <- lapply(1:3, function(i) data.frame(col1=sample(letters[1:3], 2,           replace=true), col2=rnorm(2)))  filelist <- paste0('filname', 1:3, '.txt')

Comments

Post a Comment

Popular posts from this blog

node.js - Using Node without global install -

i'm working on few node & electron (atom shell) projects , i'm curious how them work without user having install node globally. i've seen few applications including node directory in project contains node.exe binary. how go setting node project use binary? edit: thought should add, i've searched everywhere answer this, unrelated results.
Read more

How to access a php class file from PHPFox framework into javascript code written in simple HTML file? -

i've website developed using phpfox v3.0.7 . now i'm trying implement 'sse(server sent events)' 1 of php files. reference i'm giving below necessary code part of file. file titled process.class.php , present @ location /var/www/module/notification/include/service/process.class.php present on server having ip http://34.124.40.142/ . <?php /** * [phpfox_header] */ header('content-type: text/event-stream'); header('cache-control: no-cache'); defined('phpfox') or exit('no dice!'); /** * * * @copyright [phpfox_copyright] * @author raymond benc * @package phpfox_service * @version $id: service.class.php 67 2009-01-20 11:32:45z raymond_benc $ */ class notification_service_process extends phpfox_service { /** * class constructor */ public function __construct() { $this->_stable = phpfox::gett('notification'); } public function add($...
Read more

java - Null response to php query in android, even though php works properly -

Image
table i'm trying retrieve above data using 2 php files below. want pass email parameter , return bets user = email. work fine when tested advanced rest client, problem not php. however, when try through android 2 java classes below, null pointer exception (logcat below) , json object returned null. i'm not sure error is, think i'm not passing parameter php , that's why it's producing null response. logcat 05-31 15:10:50.227 26074-26074/com.example.albert.betterapp e/androidruntime﹕ fatal exception: main process: com.example.albert.betterapp, pid: 26074 java.lang.runtimeexception: unable start activity componentinfo{com.example.albert.betterapp/com.example.albert.betterapp.displayallbets}: java.lang.nullpointerexception @ android.app.activitythread.performlaunchactivity(activitythread.java:2292) @ android.app.activitythread.handlelaunchactivity(activitythread.java:2350) @ android.app.activitythread.acce...
Read more