Insert a section on spectrometer settings in RMarkdown reports. Use this function within
a code chunk and make sure to set the chunk option results = 'asis'
.
report_Settings(x = .settings()) .settings(device = c("Bruker ESP300-E", "Bruker ELEXSYS 500")[1], mod_amp = NA, receiver_gain = NA, freq = NA, conv_time = NA, time_const = NA, sweep_time = NA, power = NA, center_field = NA, sweep_width = NA, scans = NA, file = NA)
x |
|
---|---|
device |
|
mod_amp |
|
receiver_gain |
|
freq |
|
conv_time |
|
time_const |
|
sweep_time |
|
power |
|
center_field |
|
sweep_width |
|
scans |
|
file |
|
Text output via cat
.
report_Settings(.settings(device = "Bruker ESP300-E", mod_amp = 0.485, receiver_gain = 2, freq = 9.628, conv_time = 20.48, time_const = 163.84, sweep_time = 20.972, power = 25.3, center_field = 3430, sweep_width = 40, scans = c(10, 20, 30, 40)))#> + **Device**: Bruker ESP300-E #> #> + **Modulation Amplitude**: 0.485 #> #> + **Receiver gain**: 2 #> #> + **Microwave Frequency (GHz)**: 9.628 #> #> + **Conversion time (ms)**: 20.48 #> #> + **Time constant (ms)**: 163.84 #> #> + **Sweep time (s)**: 20.972 #> #> + **Microwave power (mW)**: 25.3 #> #> + **Center field (G)**: 3430 #> #> + **Sweep width (G)**: 40 #> #> + **Number of scans**: 10, 20, 30, 40 #> #> + **File(s)**: NA #>