# Add attributes to irradiance
## from collection of spectra
e_irrad(sun_evening.mspct) |>
add_attr2tb(sun_evening.mspct,
c(when.measured = "time"))
## from spectra in long form
e_irrad(sun_evening.spct) |>
add_attr2tb(sun_evening.spct,
c(when.measured = "time"))
# Add attributes to transmittance
## from collection of spectra
transmittance(two_filters.mspct) |>
add_attr2tb(two_filters.mspct, col.names = "what.measured")
transmittance(two_filters.mspct) |>
add_attr2tb(two_filters.mspct,
col.names = c("filter.properties", "what.measured"),
unnest = TRUE)
# Create a new data frame
add_attr2tb(mspct = two_filters.mspct,
idx = "filter",
col.names = c("filter.properties", "what.measured"),
unnest = TRUE)
Run the code above in your browser using DataLab