Make data path and file name variable

This commit is contained in:
Ruben Hartenstein (PEA4-Fe) 2021-01-19 14:26:16 +01:00
parent a1bd5a98e4
commit 1a26e7796b
74 changed files with 139 additions and 1773 deletions

View File

@ -0,0 +1,5 @@
{
"debugBreakpointsState": {
"breakpoints": []
}
}

View File

@ -0,0 +1,9 @@
{
"sortOrder": [
{
"columnIndex": 2,
"ascending": true
}
],
"path": "D://OpusData"
}

View File

@ -0,0 +1,3 @@
{
"activeTab": 0
}

View File

@ -0,0 +1,14 @@
{
"left": {
"splitterpos": 317,
"topwindowstate": "NORMAL",
"panelheight": 790,
"windowheight": 828
},
"right": {
"splitterpos": 513,
"topwindowstate": "NORMAL",
"panelheight": 790,
"windowheight": 828
}
}

View File

@ -0,0 +1,5 @@
{
"TabSet1": 0,
"TabSet2": 3,
"TabZoom": {}
}

View File

@ -0,0 +1,8 @@
build-last-errors="[]"
build-last-errors-base-dir=""
build-last-outputs="[]"
compile_pdf_state="{\"tab_visible\":false,\"running\":false,\"target_file\":\"\",\"output\":\"\",\"errors\":[]}"
files.monitored-path=""
find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":false,\"ignoreCase\":false,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOn\":[],\"matchOff\":[],\"replaceMatchOn\":[],\"replaceMatchOff\":[]},\"running\":false,\"replace\":false,\"preview\":false,\"gitFlag\":false,\"replacePattern\":\"\"}"
imageDirtyState="1"
saveActionState="-1"

View File

@ -0,0 +1,5 @@

View File

@ -0,0 +1 @@
{"active_set":"","sets":[]}

View File

@ -0,0 +1,25 @@
{
"id": "9E617014",
"path": "D:/OpusData/OpusData.R",
"project_path": "OpusData.R",
"type": "r_source",
"hash": "1542888404",
"contents": "",
"dirty": false,
"created": 1611062270843.0,
"source_on_save": false,
"relative_order": 1,
"properties": {
"tempName": "Untitled1",
"cursorPosition": "19,0",
"scrollLine": "0"
},
"folds": "",
"lastKnownWriteTime": 1611062469,
"encoding": "UTF-8",
"collab_server": "",
"source_window": "",
"last_content_update": 1611062469561,
"read_only": false,
"read_only_alternatives": []
}

View File

@ -0,0 +1,37 @@
#!/usr/bin/env Rscript
# Package installation, execute once
#if (!require("remotes")) install.packages("remotes")
#remotes::install_github("philipp-baumann/simplerspec")
# Attach package to workspace, execute with every new session
library("simplerspec")
# Determine file path
path <- paste(getwd(), "\\OPUS\\", sep = "")
file_name <- "Rng02_Rng2630_01.0"
file_path <- paste(path, file_name, sep = "")
# Convert opus binary file into extractable data
data <- read_opus_univ(file_path, extract = "spc",atm_comp_minus4offset = FALSE)
# Extract data
data_x_values <- data[[file_path]]$wavenumbers
data_y_values <- as.numeric(data[[file_path]]$spc[1,])
# Set working directory to path where the result file should appear
setwd(paste(path, "..\\DPT", sep = ""))
# Convert data into dataframe
data <- data.frame(data_x_values, data_y_values, row.names = NULL)
# Replace last "." with "_", add ".DPT" and create file
file_name <- paste(sub(".([^.]*)$", "_\\1", file_name), ".DPT", sep = "")
file.create(file_name)
# Fill file with dataframe
write.table(data, file_name, row.names = FALSE, col.names = FALSE, sep=",")

View File

@ -0,0 +1,5 @@
{
"tempName": "Untitled1",
"cursorPosition": "17,0",
"scrollLine": "4"
}

View File

@ -0,0 +1,5 @@
{
"tempName": "Untitled1",
"cursorPosition": "19,0",
"scrollLine": "0"
}

View File

@ -0,0 +1,2 @@
D%3A%2F%2FOpusData%2FOpusData.R="D7FA7239"
D%3A%2FOpusData%2FOpusData.R="EBB7FAC6"

View File

@ -0,0 +1 @@
D:/OpusData/OpusData.R="5F466D5B"

4
.gitignore vendored
View File

@ -1,4 +0,0 @@
.Rproj.user
.Rhistory
.RData
.Ruserdata

View File

@ -7,29 +7,31 @@
# Attach package to workspace, execute with every new session # Attach package to workspace, execute with every new session
library("simplerspec") library("simplerspec")
file_path <- "D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\" # Determine file path
path <- paste(getwd(), "\\OPUS\\", sep = "")
file_name <- "Rng02_Rng2630_01.0" file_name <- "Rng02_Rng2630_01.0"
file_path <- paste(path, file_name, sep = "")
data <- read_opus_univ(paste(file_path, file_name, sep = ""), extract = "spc", # Convert opus binary file into extractable data
atm_comp_minus4offset = FALSE) data <- read_opus_univ(file_path, extract = "spc",atm_comp_minus4offset = FALSE)
# Extract data
data_x_values <- data[[file_path]]$wavenumbers
data_y_values <- as.numeric(data[[file_path]]$spc[1,])
data_x_values <- data$`D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0`$wavenumbers # Set working directory to path where the result file should appear
data_y_values <- as.numeric(data$`D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0`$spc[1,]) setwd(paste(path, "..\\DPT", sep = ""))
# Convert data into dataframe
print(data_x_values) data <- data.frame(data_x_values, data_y_values, row.names = NULL)
# Set working directory to path where the result should appear
setwd(paste(file_path, "..\\DPT", sep = ""))
# Replace last "." with "_", add ".DPT" and create file # Replace last "." with "_", add ".DPT" and create file
file_name <- paste(sub(".([^.]*)$", "_\\1", file_name), ".DPT", sep = "") file_name <- paste(sub(".([^.]*)$", "_\\1", file_name), ".DPT", sep = "")
file.create(file_name) file.create(file_name)
# Convert data into dataframe
data <- data.frame(data_x_values, data_y_values, row.names = NULL)
# Fill file with dataframe # Fill file with dataframe
write.table(data, file_name, row.names = FALSE, col.names = FALSE, sep=",") write.table(data, file_name, row.names = FALSE, col.names = FALSE, sep=",")

View File

@ -1,13 +0,0 @@
Version: 1.0
RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8
RnwWeave: Sweave
LaTeX: pdfLaTeX

File diff suppressed because it is too large Load Diff