# NOT RUN {
library(dplyr)
jobs <- read.csv(system.file('examples/Jobs.csv', package='resumer'))
oneJob <- jobs %>% filter(Company=='Pied Piper', JobName=='Tech Startup')
generateListing(oneJob)
generateListing(oneJob, bullets=c(1, 3))
oneResearch <- jobs %>% filter(JobName=='Oddie Research', Company=='Hudson University')
generateListing(oneResearch, bullets=4, type='Research')
generateListing(oneResearch, bullets=4:5, type='Research')
# }
Run the code above in your browser using DataLab