Skip to contents

Print methods for objects of spectral classes, including collections of spectra.

Usage

# S3 method for class 'generic_spct'
print(x, ..., n = NULL, width = NULL)

# S3 method for class 'generic_mspct'
print(x, ..., n = NULL, width = NULL, n.members = 10)

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 print dplyr.print_min rows.

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.

Value

Returns x invisibly.

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.

Functions

  • print(generic_mspct):

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