Add get_cs_hours function

- Add 10_get_cshours.R
- Update get_rcards.R