comparison list_paired.Rmd @ 6:52ecc1cfd205 draft

planemo upload commit 979e0f1c28c74ca7df02ef20c2208e9677bc820a-dirty

5:4f9f1e76f7e6

knitr::kable(df)
```

```{r, echo=FALSE}
# write('', file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh'))
if (nrow(df) > 0) {
  for (i in 1:nrow(df)) {
    tool_output_dir = readLines(df[i, 'tool_output_dir'])[1]
    full_path = paste0(tool_output_dir, '/', df[i, 'relative_path'])
    if (dir.exists(full_path)) {
      from_files = list.files(full_path, full.names = TRUE)
      to_files = list.files(full_path)
      to_files = paste0(list_paired_path, to_files)
      file.copy(from = from_files, to = to_files)
    }
    if (file.exists(full_path)) {
      # to_files = list.files(full_path)
      to_file = tail(strsplit(full_path, '/')[[1]], 1)
      file.copy(from = full_path, to = paste0(list_paired_path, to_file))
    }
    # command_line = paste0('cp -r ', full_path, ' paired')
    # write(command_line, append = TRUE, 
    #       file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh'))
  }
}
```

6:52ecc1cfd205

knitr::kable(df)
```

```{r, echo=FALSE}
write('', file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh'))
if (nrow(df) > 0) {
  for (i in 1:nrow(df)) {
    tool_output_dir = readLines(df[i, 'tool_output_dir'])[1]
    full_path = paste0(tool_output_dir, '/', df[i, 'relative_path'])
    # if it is a directory path, add '/*' to the end.
    if (dir.exists(full_path)) {
      full_path = paste0(full_path, '/*')
    }
    command_line = paste0('cp -r ', full_path, ' list_paired')
    write(command_line, append = TRUE, 
          file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh'))
  }
}
```