banana/opus-data
2
Fork 0
Code Releases Activity

Backup folder for OPUS files

Browse Source
This commit is contained in:
Ruben Hartenstein (PEA4-Fe) 2021-02-19 13:30:04 +00:00
parent c676cb5424
commit 4fe43d8ecb
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -46,5 +46,4 @@ po/*~
# Folders # Folders
DPT/ DPT/
OPUS/ OPUS*/
OPUS_save/

BIN
OPUS/Rng02_Rng2630_02.0
View File

Binary file not shown.

6
OpusData.R
View File

@ -1,16 +1,20 @@
#!/usr/bin/env Rscript #!/usr/bin/env Rscript
# Attach packages to workspace, execute with every new session # Attach packages to workspace, execute with every new session
library("filesstrings")
source("ReadOpus.R") source("ReadOpus.R")
# Determine file path # Determine file path
path <- commandArgs(trailingOnly = TRUE)[1] path <- commandArgs(trailingOnly = TRUE)[1]
file_name <- commandArgs(trailingOnly = TRUE)[2] file_name <- commandArgs(trailingOnly = TRUE)[2]
file_path <- paste(path, file_name, sep = "") file_path <- paste0(path, file_name)
# Convert opus binary file into dataframe # Convert opus binary file into dataframe
data <- read_opus_univ(file_path, 5) data <- read_opus_univ(file_path, 5)
# Move the file to OPUS_old where it will remain temporarily in case of an error
file.move(file_path, "OPUS_old/")
# Replace last "." with "_", add ".DPT" # Replace last "." with "_", add ".DPT"
file_name <- paste0(sub(".([^.]*)$", "_\\1", file_name), ".DPT") file_name <- paste0(sub(".([^.]*)$", "_\\1", file_name), ".DPT")