SHARE
TWEET

Untitled

a guest Jan 24th, 2019 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(tidyverse)
  2.  
  3. dir <- "AP4T/"    
  4. APT4 <-
  5. list.files(path = dir, pattern = "*_PULS.log") %>%
  6. map_df(~read_table2(., skip = 5), .id="file") %>%
  7. select(-CHANNEL, -SIGNAL)
  8.  
  9. write_csv2(APT4, path = "APT4T/resp.csv")
  10.    
  11. dir<-list.dirs(, full.names = T, recursive = T)
  12. for(i in dir){
  13.   list.files(path = dir, pattern = "*_RESP.log", full.names = T) %>%
  14.     map_df(~read_table2(., skip = 5), .id="file") %>%
  15.     select(-CHANNEL, -SIGNAL) %>%
  16.     write_csv(., path = "resp.csv")
  17. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top