Print methods for objects of spectral classes, including collections of spectra.
Arguments
- x
An object of one of the summary classes for spectra.
- ...
not used in current version.
- n
Number of rows to show. If NULL, the default, will print all rows if less than option
dplyr.print_max. Otherwise, will printdplyr.print_minrows.- width
Width of text output to generate. This defaults to NULL, which means use getOption("width") and only display the columns that fit on one screen. You can also set option(dplyr.width = Inf) to override this default and always print all columns.
- n.members
numeric Number of members of the collection to print.
Details
This is simply a wrapper on the print method for tibbles, with
additional information in the header. Currently, width applies only to
the table of data.
Objects are printed as is, ignoring the current settings of R options
photobiology.radiation.unit and photobiology.filter.qty.
Examples
print(sun.spct)
#> Object: source_spct [522 x 3]
#> Wavelength range 280-800 nm, step 0.9230769-1 nm
#> Label: sunlight, simulated
#> Measured on 2010-06-22 09:51:00 UTC
#> Measured at 60.20911 N, 24.96474 E; Kumpula, Helsinki, FI
#> Variables:
#> w.length: Wavelength [nm]
#> s.e.irrad: Spectral energy irradiance [W m-2 nm-1]
#> s.q.irrad: Spectral photon irradiance [mol s-1 m-2 nm-1]
#> --
#> # A tibble: 522 × 3
#> w.length s.e.irrad s.q.irrad
#> <dbl> <dbl> <dbl>
#> 1 280 0 0
#> 2 281. 0 0
#> 3 282. 0 0
#> 4 283. 0 0
#> 5 284. 0 0
#> 6 285. 0 0
#> 7 286. 0 0
#> 8 286. 0 0
#> 9 287. 0 0
#> 10 288. 0 0
#> # ℹ 512 more rows
print(sun.spct, n = 5)
#> Object: source_spct [522 x 3]
#> Wavelength range 280-800 nm, step 0.9230769-1 nm
#> Label: sunlight, simulated
#> Measured on 2010-06-22 09:51:00 UTC
#> Measured at 60.20911 N, 24.96474 E; Kumpula, Helsinki, FI
#> Variables:
#> w.length: Wavelength [nm]
#> s.e.irrad: Spectral energy irradiance [W m-2 nm-1]
#> s.q.irrad: Spectral photon irradiance [mol s-1 m-2 nm-1]
#> --
#> # A tibble: 522 × 3
#> w.length s.e.irrad s.q.irrad
#> <dbl> <dbl> <dbl>
#> 1 280 0 0
#> 2 281. 0 0
#> 3 282. 0 0
#> 4 283. 0 0
#> 5 284. 0 0
#> # ℹ 517 more rows
print(q2e(sun.spct, action = "replace"))
#> Object: source_spct [522 x 2]
#> Wavelength range 280-800 nm, step 0.9230769-1 nm
#> Label: sunlight, simulated
#> Measured on 2010-06-22 09:51:00 UTC
#> Measured at 60.20911 N, 24.96474 E; Kumpula, Helsinki, FI
#> Variables:
#> w.length: Wavelength [nm]
#> s.e.irrad: Spectral energy irradiance [W m-2 nm-1]
#> --
#> # A tibble: 522 × 2
#> w.length s.e.irrad
#> <dbl> <dbl>
#> 1 280 0
#> 2 281. 0
#> 3 282. 0
#> 4 283. 0
#> 5 284. 0
#> 6 285. 0
#> 7 286. 0
#> 8 286. 0
#> 9 287. 0
#> 10 288. 0
#> # ℹ 512 more rows
print(e2q(sun.spct, action = "replace"))
#> Object: source_spct [522 x 2]
#> Wavelength range 280-800 nm, step 0.9230769-1 nm
#> Label: sunlight, simulated
#> Measured on 2010-06-22 09:51:00 UTC
#> Measured at 60.20911 N, 24.96474 E; Kumpula, Helsinki, FI
#> Variables:
#> w.length: Wavelength [nm]
#> s.q.irrad: Spectral photon irradiance [mol s-1 m-2 nm-1]
#> --
#> # A tibble: 522 × 2
#> w.length s.q.irrad
#> <dbl> <dbl>
#> 1 280 0
#> 2 281. 0
#> 3 282. 0
#> 4 283. 0
#> 5 284. 0
#> 6 285. 0
#> 7 286. 0
#> 8 286. 0
#> 9 287. 0
#> 10 288. 0
#> # ℹ 512 more rows
print(polyester.spct)
#> Object: filter_spct [454 x 2]
#> Wavelength range 240-800 nm, step 1-4 nm
#> Label: Polyester, clear film, 0.000125 m thick, Autostat CT5 from McDermit Autotype; new
#> Rfr (/1): 0.074, thickness (mm): 0.125, attenuation mode: absorption.
#> Variables:
#> w.length: Wavelength [nm]
#> Tfr: Total spectral transmittance [/1]
#> --
#> # A tibble: 454 × 2
#> w.length Tfr
#> <int> <dbl>
#> 1 240 0.00482
#> 2 241 0.00464
#> 3 242 0.00446
#> 4 244 0.00414
#> 5 246 0.004
#> 6 248 0.004
#> 7 252 0.00386
#> 8 256 0.00329
#> 9 258 0.003
#> 10 259 0.003
#> # ℹ 444 more rows
print(any2A(polyester.spct))
#> Object: filter_spct [454 x 3]
#> Wavelength range 240-800 nm, step 1-4 nm
#> Label: Polyester, clear film, 0.000125 m thick, Autostat CT5 from McDermit Autotype; new
#> Rfr (/1): 0.074, thickness (mm): 0.125, attenuation mode: absorption.
#> Variables:
#> w.length: Wavelength [nm]
#> Tfr: Total spectral transmittance [/1]
#> A: Spectral absorbance log10 based [a.u.]
#> --
#> # A tibble: 454 × 3
#> w.length Tfr A
#> <int> <dbl> <dbl>
#> 1 240 0.00482 2.32
#> 2 241 0.00464 2.33
#> 3 242 0.00446 2.35
#> 4 244 0.00414 2.38
#> 5 246 0.004 2.40
#> 6 248 0.004 2.40
#> 7 252 0.00386 2.41
#> 8 256 0.00329 2.48
#> 9 258 0.003 2.52
#> 10 259 0.003 2.52
#> # ℹ 444 more rows
print(any2Afr(polyester.spct))
#> Object: filter_spct [454 x 3]
#> Wavelength range 240-800 nm, step 1-4 nm
#> Label: Polyester, clear film, 0.000125 m thick, Autostat CT5 from McDermit Autotype; new
#> Rfr (/1): 0.074, thickness (mm): 0.125, attenuation mode: absorption.
#> Variables:
#> w.length: Wavelength [nm]
#> Tfr: Total spectral transmittance [/1]
#> Afr: Spectral absorptance [/1]
#> --
#> # A tibble: 454 × 3
#> w.length Tfr Afr
#> <int> <dbl> <dbl>
#> 1 240 0.00482 0.921
#> 2 241 0.00464 0.921
#> 3 242 0.00446 0.922
#> 4 244 0.00414 0.922
#> 5 246 0.004 0.922
#> 6 248 0.004 0.922
#> 7 252 0.00386 0.922
#> 8 256 0.00329 0.923
#> 9 258 0.003 0.923
#> 10 259 0.003 0.923
#> # ℹ 444 more rows
print(two_filters.spct)
#> Object: filter_spct [879 x 3]
#> containing 2 spectra in long form
#> Wavelength range 240-800 nm, step -610-67 nm
#> spct_1 label: Polyester, clear film, 0.000125 m thick, Autostat CT5 from McDermit Autotype; new
#> spct_2 label: Theatrical 'gel', type 'Canary Supergel no312; new; from Rosco, UK
#> Rfr (/1): NA, thickness (mm): NA, attenuation mode: NA.
#> Variables:
#> w.length: Wavelength [nm]
#> Tfr: Total spectral transmittance [/1]
#> --
#> # A tibble: 879 × 3
#> w.length Tfr spct.idx
#> <int> <dbl> <fct>
#> 1 240 0.00482 spct_1
#> 2 241 0.00464 spct_1
#> 3 242 0.00446 spct_1
#> 4 244 0.00414 spct_1
#> 5 246 0.004 spct_1
#> 6 248 0.004 spct_1
#> 7 252 0.00386 spct_1
#> 8 256 0.00329 spct_1
#> 9 258 0.003 spct_1
#> 10 259 0.003 spct_1
#> # ℹ 869 more rows