Pick temperature

head(pressure)

#>   temperature pressure
#> 1           0   0.0002
#> 2          20   0.0012
#> 3          40   0.0060
#> 4          60   0.0300
#> 5          80   0.0900
#> 6         100   0.2700

Pick the temperature the user chosed (or its default).

pick <- subset(pressure, temperature > params$min_temp)
head(pick)

#>    temperature pressure
#> 7          120     0.75
#> 8          140     1.85
#> 9          160     4.20
#> 10         180     8.80
#> 11         200    17.30
#> 12         220    32.10

plot(pick)