knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
This package started out as just a few R functions and notes that reproduced the calculations in Chapter 4 of Lugged Bicycle Frame Construction, 3rd Ed. by Marc-Andre R. Chimonas. It allows you to save multiple frame designs and compare any two them as a ggplot object. The main goal of this package is to provide a framework where I can add more functions as the need arises.
For example, bicycle makers publish geometry tables on their websites for models that they have in production. These tables have some useful dimensions -- seat tube length, head tube angle, fork rake, etc. -- but they do not show everything that you need to sketch out the frame and compare it to another. It would be nice to have some functions on hand that can derive what's missing from what's available.
You can install the development version of bicycle from GitHub with:
# install.packages("devtools") devtools::install_github("ghuiber/bicycle")
Here's a simple way to derive the bottom bracket drop from some frame dimensions:
library(bicycle) get_bb_drop(60, 72, 430, 10)
And here's a basic bike frame:
library(magrittr) wrap_frame_dims(tt_angle = 6, st_dt_angle = 58, cs_st_angle = 62) %>% draw_the_bicycle()
See the vignette for more.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.