needed_packages <- c("wjake", "here", "fs", "glue", "pluralize", "english", "knitr", "kableExtra", "lubridate", "stringr", "scales", "dplyr", "glue") load_packages <- function(x) { if (!(x %in% installed.packages())) { if (x == "wjake") { remotes::install_github("wjakethompson/wjake", dependencies = TRUE) } else { install.packages(x, repos = "https://cran.rstudio.com/") } } suppressPackageStartupMessages(require(x, character.only = TRUE)) } vapply(needed_packages, load_packages, logical(1)) cur_day <- params$payment$date completion <- params$payment$complete if (length(cur_day) > 1) { cur_day <- cur_day$value } else { cur_day <- lubridate::ymd(cur_day) } if (length(completion) > 1) { completion <- completion$value } else { completion <- lubridate::ymd(completion) } next_weekday <- function(date, wday = 6, fmt = "%B %d, %Y") { date <- lubridate::ymd(date) diff <- wday - lubridate::wday(date) if (diff < 0) diff <- diff + 7 return(format(date + diff, fmt)) }
THIS CONSULTING AGREEMENT (the "Agreement") is dated this r str_replace(ordinal(day(cur_day)), "([0-9]*)([a-z]*)$", "\\1^\\2^")
day of r month(cur_day, label = TRUE, abbr = FALSE)
, r year(cur_day)
.
\begin{multicols}{2} \setlength{\parskip}{0pt}
\fbox{ \parbox{\linewidth}{\centering \textbf{CLIENT} \bigskip
`r params$client$name` {\footnotesize `r params$client$company`} \bigskip (the ``Client")
} }
\fbox{ \parbox{\linewidth}{\centering \textbf{CONSULTANT} \bigskip
W. Jake Thompson, Ph.D. {\footnotesize Jake Thompson Consulting} \bigskip (the ``Consultant")
} } \end{multicols}
A. The Client is of the opinion that the Consultant has the necessary qualifications, experience and abilities to provide consulting services to the Client. B. The Consultant is agreeable to providing such consulting services to the Client on the terms and conditions set out in this Agreement.
\color{greydivide}\raisebox{.6\baselineskip}{\rule{\linewidth}{0.4pt}}\color{black}
IN CONSIDERATION OF the matters described above and of the mutual benefits and obligations set forth in this Agreement, the receipt and sufficiency of which consideration is hereby acknowledged, the Client and the Consultant (individually the "Party" and collectively the "Parties" to this Agreement) agree as follows:
r next_weekday(completion + days(21))
, or
iii. the date a Party terminates the Agreement as provided below.r if_else(params$payment$hourly, glue("for the Services at the rate of ${prettyNum(params$payment$fee, big.mark = ',')} USD (US Dollars) per hour"), glue("${prettyNum(params$payment$fee, big.mark = ',')} USD (US Dollars) for the Services"))
(the "Compensation").All notices, requests, demands or other communications required or permitted by the terms of this Agreement will be given in writing and delivered to the Parties at the following addresses:
i. r params$client$name
r params$client$building
r params$client$address
r params$client$city
r params$client$email
ii. W. Jake Thompson, Ph.D.
12261 S. Crest Drive
Olathe, KS 66061
wjakethompson\@gmail.com
or to such other address as either Party may from time to time notify the other, and will be deemed to be properly delivered:
(a) immediately upon being served personally, (b) two days after being deposited with the postal service by registered mail, (c) the following day after being deposited with an overnight courier, or (d) if delivered by email, i. when the sender receives an automated message confirming delivery; or ii. One hour after the time sent (as recorded on the device from which the sendor sent the email) unless the sender receives an automated message that the email has not been delivered,
whichever happens first.
\color{greydivide}\raisebox{.6\baselineskip}{\rule{\linewidth}{0.4pt}}\color{black}
IN WITNESS WHEREOF the Parties have duly affixed their signatures under hand and seal on this r str_replace(ordinal(day(cur_day)), "([0-9]*)([a-z]*)$", "\\1^\\2^")
day of r month(cur_day, label = TRUE, abbr = FALSE)
, r year(cur_day)
.
\bigskip \bigskip \bigskip
\columnratio{0.1,0.7,0.2} \begin{paracol}{3} \setlength{\parskip}{0pt} \setlength{\columnseprule}{0pt} \setlength{\columnsep}{0.1em} \begin{nthcolumn}{1}
Signed: \hrulefill
\hspace*{0mm}\phantom{Signed: }r params$client$name
\hspace*{0mm}\phantom{Signed: }{\footnotesize r params$client$company
}
\bigskip \bigskip \bigskip \bigskip \bigskip
Signed: \hrulefill
\hspace*{0mm}\phantom{Signed: }W. Jake Thompson, Ph.D.
\hspace*{0mm}\phantom{Signed: }{\footnotesize Jake Thompson Consulting} \end{nthcolumn}
\begin{nthcolumn}{2} \hrulefill
Date
\phantom{Jake Thompson Consulting}
\bigskip \bigskip \bigskip \bigskip \bigskip
\hrulefill
Date
\phantom{Jake Thompson Consulting}
\end{nthcolumn} \end{paracol}
\newpage \addtocounter{page}{-1} \thispagestyle{empty}
\vspace*{\fill} \begin{center}\Huge\bfseries Exhibit A:
Consultation Estimate \end{center} \vspace*{\fill}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.