Nothing
Code
rlang::expr_text(tf)
Output
[1] "case_when((qsec < 19.9549999 | is.na(qsec)) & (wt < 3.18000007 | \n is.na(wt)) ~ 0.138461545, qsec >= 19.9549999 & (wt < 3.18000007 | \n is.na(wt)) ~ -0.100000009, (hp < 290 | is.na(hp)) & wt >= \n 3.18000007 ~ -0.141666666, hp >= 290 & wt >= 3.18000007 ~ \n 0.075000003) + case_when((qsec < 19.9549999 | is.na(qsec)) & \n (wt < 3.01250005 | is.na(wt)) ~ 0.0994230807, qsec >= 19.9549999 & \n (wt < 3.01250005 | is.na(wt)) ~ -0.0599999987, (hp < 254.5 | \n is.na(hp)) & wt >= 3.01250005 ~ -0.102500007, hp >= 254.5 & \n wt >= 3.01250005 ~ 0.0786538497) + case_when((gear < 3.5 | \n is.na(gear)) ~ -0.0735312551, (wt < 3.01250005 | is.na(wt)) & \n gear >= 3.5 ~ 0.0720817298, wt >= 3.01250005 & gear >= 3.5 ~ \n -0.0186758228) + case_when((gear < 3.5 | is.na(gear)) ~ -0.0528505854, \n (qsec < 19.9500008 | is.na(qsec)) & gear >= 3.5 ~ 0.0427994467, \n qsec >= 19.9500008 & gear >= 3.5 ~ -0.0515981652) + 0.5"
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.