From 18be2f2cf136266d721b5482d4e2a3207694f4a6 Mon Sep 17 00:00:00 2001
From: Ruben <hartensteinruben@gmail.com>
Date: Thu, 14 Jan 2021 14:49:30 +0100
Subject: [PATCH] extract Data from a Opus file (X-values)

---
 OpusData.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 OpusData.R

diff --git a/OpusData.R b/OpusData.R
new file mode 100644
index 0000000..7e06eb7
--- /dev/null
+++ b/OpusData.R
@@ -0,0 +1,13 @@
+#!/usr/bin/env Rscript
+#if (!require("remotes")) install.packages("remotes")
+#remotes::install_github("philipp-baumann/simplerspec")
+
+file_path <- "D:\\OpusData\\Spektrometer Anbindung\\Test Daten\\OPUS\\Rng02_Rng2630_01.0"
+
+data <- read_opus_univ(file_path, extract = "AB",
+                   atm_comp_minus4offset = FALSE)
+ 
+print(data[1])
+
+print(ls())
+