Title: | Consolidated tools and templates for staff at Monash University |
---|---|
Description: | Rmarkdown templates and other tools for use at Monash University, Department of Econometrics & Business Statistics. |
Authors: | Emi Tanaka [aut] , Rob Hyndman [aut, cre] , Mitchell O'Hara-Wild [ctb] |
Maintainer: | Rob Hyndman <[email protected]> |
License: | GPL-3 |
Version: | 0.0.0.9000 |
Built: | 2024-11-16 05:52:02 UTC |
Source: | https://github.com/numbats/monash |
Each function is a wrapper for pdf_document2
to
produce documents in Monash EBS style.
letter(...) exam(...) workingpaper(...) report(...) memo(...)
letter(...) exam(...) workingpaper(...) report(...) memo(...)
... |
Arguments passed to |
An R Markdown output format object.
Rob J Hyndman
A quick way of getting the Monash logo.
logo_get( path = ".", stack = TRUE, color = c("blue", "black", "white"), type = c("png", "jpg", "ai"), hq = FALSE, overwrite = TRUE, filename = NULL )
logo_get( path = ".", stack = TRUE, color = c("blue", "black", "white"), type = c("png", "jpg", "ai"), hq = FALSE, overwrite = TRUE, filename = NULL )
path |
the path to save the file to |
stack |
TRUE for stacked logo, FALSE for one-line logo |
color |
|
type |
|
hq |
TRUE for high-quality image (larger file size) |
overwrite |
TRUE for overwriting (should it enquire?), FALSE for not. Not implemented yet. |
filename |
A new file name for the logo. Not implemented yet. |
https://www.monash.edu/brandbook/brand-elements/our-logo
Monash brand colors
color_all() # show both primary and secondary colors color_show(print = TRUE) color_primary() color_secondary()
color_all() # show both primary and secondary colors color_show(print = TRUE) color_primary() color_secondary()
print |
whether to print the color vector |
Monash Blue is our most identifiable colour. It conveys youthfulness, possibility and openness. It should always be considered first.
Black conveys prestige, timelessness and sophistication.
White is often shown as white space and conveys the brand personality of being open and youthful.
Greys can be any percentage of black and provides additional flexibility to our primary colour palette.
The primary colour palette is preferred for digital work.
Inspired by the colours of our academic robes, we have a range of bright, colourful secondary colours.
Secondary colours are to be used:
in charts and diagrams to highlight key findings
as headings and subheadings
sparingly to provide highlights or accents – ideally one or two secondary colours per double page spread
to speak to a particular audience group. For instance, colours that would resonate best with our prospective undergraduate audience would be colourful, bright and youthful. Industry and research would suit a more corporate/mature choice to reflect focus and prestige.
This function lists the Monash Quarto templates available.
quarto_template_use( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam"), dir = type ) quarto_template_install( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam") ) quarto_template_add( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam") )
quarto_template_use( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam"), dir = type ) quarto_template_install( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam") ) quarto_template_add( type = c("report", "workingpaper", "thesis", "memo", "letter", "exam") )
type |
One of either "report", "workingpaper", "thesis", "memo", or "letter". |
dir |
The name of the directory to put the template in. The directory should not exist. |
## Not run: quarto_template_use("report", dir = "myreport") quarto_template_install("workingpaper") quarto_template_add("thesis") ## End(Not run)
## Not run: quarto_template_use("report", dir = "myreport") quarto_template_install("workingpaper") quarto_template_add("thesis") ## End(Not run)
Release materials
release_lecture( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.lecture.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE ) release_tutorial( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.tutorial.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE ) release_tutorial_solution( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.tutorial.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE )
release_lecture( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.lecture.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE ) release_tutorial( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.tutorial.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE ) release_tutorial_solution( week, dir = "tutorials", output_dir = "release", ignore = getOption("monash.tutorial.ignore"), interactive = rlang::is_interactive(), overwrite = TRUE )
week |
the week number |
dir |
the subdirectory where the file is |
output_dir |
the directory where the release folder is |
ignore |
the file paths to ignore |
interactive |
not used yet |
overwrite |
should the files be overwritten? |
## Not run: release_lecture(9) # to release week 9 lecture release_tutorial(9) # to release week 9 tutorial release_tutorial_solution(9) # to release week 9 tutorial solution ## End(Not run)
## Not run: release_lecture(9) # to release week 9 lecture release_tutorial(9) # to release week 9 tutorial release_tutorial_solution(9) # to release week 9 tutorial solution ## End(Not run)
Link attendance record to google sheet
zoom_attendance(.data, .sheet, sheetname = "Lecture", week, upload = FALSE)
zoom_attendance(.data, .sheet, sheetname = "Lecture", week, upload = FALSE)
.data |
The summary data frame with email, total and letter grade. |
.sheet |
The link to the googlesheet |
sheetname |
The name of the sheet |
week |
The week number |
upload |
Should the attendance be uploaded to a Google sheet? |
Process the data frame from zoom meeting to total duration of attendance
zoom_process( .data, start = NA, end = NA, length = 120, accept = c(A = length * 1/2, P = length * 3/4) )
zoom_process( .data, start = NA, end = NA, length = 120, accept = c(A = length * 1/2, P = length * 3/4) )
.data |
Data frame |
start , end
|
A date time of when the zoom meeting started or ended. If NA, this is ignored. If the date time is supplied, then the time is censored. |
length |
The total length of the session in minutes. |
accept |
A named numeric vector that signifies the minimum required amount for the letter grade. |
The zoom meeting report is expected to have the meeting information and uncheck the "unique users" so that the record for start and end time exists. The latter is required so that total time for students is recorded from the start of the lecture to the end of the time and not because the student happens to be lingering before/after.
zoom_read(file, info = TRUE, date_format = "%m/%d/%Y %I:%M:%S %p")
zoom_read(file, info = TRUE, date_format = "%m/%d/%Y %I:%M:%S %p")
file |
The file name for the zoom meeting report. |
info |
TRUE or FALSE of whether the meeting information is included in the file. |
date_format |
A date format specification. See |
In order to identify the student, the zoom meeting should be set to authenticate and restricted to Monash id alone. This makes the data linkage easier with record in LMS.