Make data path and file name variable

.Rproj.user/9E972B4F/pcs/debug-breakpoints.pper

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

.Rproj.user/9E972B4F/pcs/files-pane.pper

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

.Rproj.user/9E972B4F/pcs/source-pane.pper

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

.Rproj.user/9E972B4F/pcs/windowlayoutstate.pper

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

.Rproj.user/9E972B4F/pcs/workbench-pane.pper

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

.Rproj.user/9E972B4F/persistent-state

@@ -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"

.Rproj.user/9E972B4F/rmd-outputs

@@ -0,0 +1,5 @@
+
+
+
+
+

.Rproj.user/9E972B4F/saved_source_markers

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

.Rproj.user/9E972B4F/sources/per/t/9E617014

@@ -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": []
+}

.Rproj.user/9E972B4F/sources/per/t/9E617014-contents

@@ -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=",")
+
+
+
+
+

.Rproj.user/9E972B4F/sources/prop/D7FA7239

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

.Rproj.user/9E972B4F/sources/prop/EBB7FAC6

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

.Rproj.user/9E972B4F/sources/prop/INDEX

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

.Rproj.user/shared/notebooks/paths

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

.gitignore

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

OpusData.R

@@ -7,29 +7,31 @@
 # Attach package to workspace, execute with every new session
 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_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
 file_name <- paste(sub(".([^.]*)$", "_\\1", file_name), ".DPT", sep = "")
 file.create(file_name)
 
-# Convert data into dataframe
-data <- data.frame(data_x_values, data_y_values, row.names = NULL)
-
 # Fill file with dataframe
 write.table(data, file_name, row.names = FALSE, col.names = FALSE, sep=",")
 
 
 
+
+

OpusData.Rproj

@@ -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