#' @title JobProvider
#' @description generate jobs
#' @export
#' @family ParentProviders
#' @returns A JobProvider object with methods for jobs
JobProvider <- R6::R6Class(
inherit = BaseProvider,
"JobProvider",
public = list(
#' @description Make a job
render = function() {
super$random_element(private$formats)
}
),
private = list(
locales = c(
"da_DK", "fa_IR", "fr_CH", "uk_UA", "ru_RU", "pl_PL",
"en_US", "fr_FR", "hr_HR", "zh_TW", "fi_FI", "nl_NL"
),
provider_ = "JobProvider",
# vector of possible formats
formats = NULL
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.