Nothing
#' Set the citation of a design
#'
#' @param design A design typically created using the + operator
#' @param title The title of the design, as a character string.
#' @param author The author(s) of the design, as a character string.
#' @param year The year of the design, as a character string.
#' @param description A description of the design in words, as a character string.
#' @param citation (optional) The preferred citation for the design, as a character string, in which case title, author, year, and description may be left unspecified.
#'
#' @return a design object with a citation attribute
#'
#' @examples
#'
#' # Setup for example
#' design <-
#' declare_model(data = sleep) +
#' declare_sampling(S = complete_rs(N, n = 10))
#'
#' # Set citation using set_citation
#' design <-
#' set_citation(design,
#' author = "Lovelace, Ada",
#' title = "Notes",
#' year = 1953,
#' description =
#' "This is a text description of a design")
#'
#' # View citation information using cite_design
#' cite_design(design)
#'
#' @export
set_citation <-
function(design,
title = NULL,
author = NULL,
year = NULL,
description = "Unpublished research design declaration",
citation = NULL) {
check_design_class_single(design)
if (!is.null(citation)) {
cite <- citation
} else {
cite <- bibentry(
"unpublished",
title = title,
author = author,
note = description,
year = year,
textVersion = citation
)
}
attr(design, "citation") <- cite
design
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.