library(tidyverse)
library(tibble)
# Read in filter Transmisions from Excel files
dataset_files <- dir("data-raw/", pattern = ".xlsx")
dataset_file_paths <- dir("data-raw/", pattern = ".xlsx", full.names = TRUE)
dataset_names <- gsub(pattern = ".xlsx", replacement = "", x = dataset_files)
dataset_names <- gsub(pattern = "_Raw_Data", replacement = "", x = dataset_names)
filters<- tibble::tibble()
for(i in 1:length(dataset_files)){
data <- readxl::read_excel(path = dataset_file_paths[i])[,3:4]
# Compensate for Thorlabs inconsistant naming
if(names(data)[2] == "%Transmission") names(data)[2] <- "% Transmission"
if(names(data)[2] == "Transmission (%)") names(data)[2] <- "% Transmission"
# On Mac, some odd character handeling makes the above fail. Addded this line below in case of compiling on mac
#names(data)[2] <- "% Transmission"
data <- data %>% tibble::add_column(filter = rep(dataset_names[i], length(data[[1]])))
filters <- rbind(filters, data)
}
APD120A2_data <- read.csv("data-raw/APD120A2_data.csv", sep = ";")
devtools::use_data(filters, APD120A2_data, internal = TRUE, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.