Recruiters and hiring managers, I humbly welcome you to…
David Cloonan’s “Hire Me” Page!
I won’t bore you with a ton of “about me” stuff… that is all in my resume and LinkedIn. I just wanted to make a page where you could see examples of my work and what I do outside of work.
The slidesbelow are here to demonstrate what you can expect me to provide you. If you would like to download a PDF of them to see them at full size, please click here.
The purpose of the dashboard here was to give insights into the company’s sales pipeline at both a company level and be able to be drilled into at divisional, regional, and market levels.
The first slide shows a summary of all sales currently in the pipeline by where they are in the sales process. The second slide shows a visual representation of how the dollars flow through different statuses from beginning to end. This shows stakeholders the likelihood of certain jobs being completed.
These slides were created to give insight into lost jobs. We can drill into who created the job, where it was coming from, and what business area it was related to. Then we can look at for example, if we are constantly over bidding on commercial properties. Or if we have one sales rep who is continually adding jobs to the pipeline that all close out as being a bad fit for the company.
These slides are here to show how the total value of the pipeline fluctuated by status from a month to month basis and if we were recapturing opportunities properly. These required a custom DAX scrip that I wrote that was about 1000 lines in order to properly cleanse and transform the data to where it was usable.
Next Steps
Other files you should have:
Okay, if you made it this far, go ahead and copy and paste this script into where ever you run your R scripts. It should take the guesswork out of what to do.
library(RMySQL)
host <- "localhost"
user <- "BestRecruiter"
password <- "HireDave1985!"
database <- "CoolestCompany_OpenPositions"
con <- dbConnect(MySQL(), user = user, password = password, dbname = database, host = host)
update_query <- "
UPDATE applicant
JOIN job_listing ON applicant.candidateID = job_listing.candidateID
SET applicant.action = CASE
WHEN applicant.candidate_name = 'David Cloonan' THEN 'Contact for Interview'
ELSE 'Thank you for your interest.'
END
WHERE applicant.action IS NULL
AND job_listing.position_name = 'This position'
"
dbSendQuery(con, update_query)
dbDisconnect(con)
Email me quick before all the other cool companies get to me first!
dcloonan.jr@gmail.com
Last Ditch Effort
If everything else didn’t convince you to contact me about your open position… I hope that these pictures of my kids and dog will guilt you into wanting to help me provide for them.
Elliott
Peanut
Esther