# NOT RUN {
celsius_to_fahrenheit <- function(degrees_celsius) {
#| degrees_celsius numeric dim(1) not(NA, NULL)
if(check_types()) return(degrees_celsius * 9/5 + 32)
else return(NA)
}
show_typehints(celsius_to_fahrenheit)
# }
Run the code above in your browser using DataLab