In wjakethompson/wjake: Personal R Package for Miscellaneous Themes, Templates, and Functions

needed_packages <- c("wjake", "here", "fs", "glue", "pluralize", "english",
                     "knitr", "kableExtra", "ggplot2", "lubridate", "tibble",
                     "showtext", "conflicted")
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))

conflict_prefer("filter", "dplyr")
conflict_prefer("group_rows", "kableExtra")
conflict_prefer("set_theme", "wjake")

complete_date <- ymd(rmarkdown::metadata$author$complete_date)

showtext_auto()
showtext_opts(dpi = 320)

options(knitr.kable.NA = "")
set_theme(base_family = "Source Sans Pro", plot_margin = margin(0, 10, 0, 10))

Introductory paragraph.

Analyses to be Conducted

Summary of analyses.

Timeline and Deliverables

I currently estimate approximately r round((complete_date - today()) / dweeks(1), digits = 0) weeks to complete the analyses outlined above and develop a report of the findings. I can begin this work upon approval of this estimate with an estimated completion date of r glue("{month(complete_date, label = TRUE, abbr = FALSE)} {day(complete_date)}, {year(complete_date)}"). Upon completion of the report, a private GitHub repository will be shared with the project staff. Alternatively, a compressed zip folder of the GitHub repository can also be provided upon request. The repository will contain the following:

• The original and other associated files that were provided by the project staff
• R scripts that can be used to replicate all analyses
• Data visualizations to illustrate the results of the analyses
• The completed report

A PDF of the final report will also be provided by email to project staff.

Estimated Cost

The cost estimate for the above outlined activities are based on the expected hours for each activity. All work is quoted at a consulting rate of \$r rmarkdown::metadata$author$fee/hour.\ \

est_time <- tribble(
  ~task,                                                          ~hours,
  "Report Development",                                               5L
)

est_time |>
  fmt_table() |>
  kbl(align = c("l", "c"), booktabs = TRUE, linesep = "", escape = FALSE,
      col.names = c("Task", "Hours")) |>
  kable_styling(latex_options = "HOLD_position", full_width = TRUE) |>
  column_spec(1, width = "40em") |>
  row_spec(0, align = "c")

\ The total estimated time for this project is r sum(est_time$hours) hours. At \$r rmarkdown::metadata$author$fee/hour, the total cost is estimated to be \$r fmt_count(sum(est_time$hours) * rmarkdown::metadata$author$fee). In addition, I would expect to be included on any publications or conference presentations that utilize this work.

If any clarifications or modifications are needed for this estimate, please feel free to contact wjakethompson\@gmail.com.\ \ Thank you,\ \ \ W. Jake Thompson, Ph.D.

\newpage

References

if (!file.exists("bib/packages.bib")) file.create("bib/packages.bib")
suppressWarnings(
  knitr::write_bib(c(.packages()), "bib/packages.bib")
)

\printbibliography[heading=none]

\setlength{\parindent}{15pt} \setlength{\leftskip}{0pt}

wjakethompson/wjake documentation built on June 29, 2024, 7:47 a.m.