Running examples in ‘photobiologyFilters-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: photobiologyFilters-package
> ### Title: photobiologyFilters: Spectral Transmittance Data for Filters
> ### Aliases: photobiologyFilters photobiologyFilters-package
> 
> ### ** Examples
> 
> library(ggspectra)
Loading required package: ggplot2
> library(photobiologyWavebands)
> 
> # Total number of spectra in the package
> length(filters.mspct)
[1] 236
> 
> # SCHOTT filters example
> schott
 [1] "UG1"     "UG5"     "UG11"    "BG3"     "BG7"     "BG18"    "BG25"   
 [8] "BG36"    "BG38"    "BG39"    "BG40"    "BG42"    "S-8612"  "BG50"   
[15] "BG55"    "BG60"    "BG60HT"  "BG61"    "BG62"    "BG62HT"  "BG63"   
[22] "BG64"    "VG9"     "VG20"    "S-8022"  "S-8023"  "GG395"   "GG400"  
[29] "GG420"   "GG435"   "GG455"   "GG475"   "GG495"   "OG515"   "OG530"  
[36] "OG550"   "OG570"   "OG590"   "RG9"     "RG610"   "RG630"   "RG645"  
[43] "RG665"   "RG695"   "RG715"   "RG780"   "RG830"   "RG850"   "RG1000" 
[50] "NG1"     "NG3"     "NG4"     "NG5"     "NG9"     "NG11"    "N-WG280"
[57] "N-WG295" "N-WG305" "N-WG320" "KG1"     "KG2"     "KG3"     "KG5"    
[64] "BG67"    "UG2A"    "BG62HS"  "BG66HS" 
> filters.mspct$OG530
Object: filter_spct [1,001 x 2]
Wavelength range 200 to 5200 nm, step 1 to 50 nm 
Label: SCHOTT OG530, thickness (m): 0.003 

# A tibble: 1,001 x 2
   w.length     Tfr
      <dbl>   <dbl>
 1      200 0.00001
 2      201 0.00001
 3      202 0.00001
 4      203 0.00001
 5      204 0.00001
 6      205 0.00001
 7      206 0.00001
 8      207 0.00001
 9      208 0.00001
10      209 0.00001
# … with 991 more rows
> filters.mspct[["OG530"]]
Object: filter_spct [1,001 x 2]
Wavelength range 200 to 5200 nm, step 1 to 50 nm 
Label: SCHOTT OG530, thickness (m): 0.003 

# A tibble: 1,001 x 2
   w.length     Tfr
      <dbl>   <dbl>
 1      200 0.00001
 2      201 0.00001
 3      202 0.00001
 4      203 0.00001
 5      204 0.00001
 6      205 0.00001
 7      206 0.00001
 8      207 0.00001
 9      208 0.00001
10      209 0.00001
# … with 991 more rows
> getWhatMeasured(filters.mspct$OG530)
[1] "SCHOTT OG530, thickness (m): 0.003"
> 
> # combining name (index) vectors
> # blue glass filters
> intersect(optical_glass, blue_filters)
[1] "GG395" "GG400" "GG420" "GG435" "GG455" "GG475" "GG495"
> # green plastic films
> intersect(plastic_film, green_filters)
[1] "Moss_Green_EColour_no89"      "Moss_Green_EColour_no89_used"
[3] "Supergreen"                  
> 
> # A Plexiglas sheet
> getWhatMeasured(filters.mspct$Sky_Blue_5C01_GT)
[1] "Poly(methyl methacrylate) (PMMA) 'acrylic' sheet; Plexiglas 'Sky Blue 5C01 GT'; 0.002 m thick; new; from Evonik Industries, Germany"
> plot(filters.mspct$Sky_Blue_5C01_GT)
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted