create.officer: Create a docx object with a specific template and...

In eusebe/biostat2: biostat, mais 2

Description

Create a docx object with a specific template and informations already inserted

Usage

create.officer(template = c("gerc", "urc", "cephepi"),
  watermark = FALSE, title = "", acronym = "", version = "",
  npromo = "", nct = "", invest = "", biostat = "", methodo = "",
  date_lastmodif = "", date_freez = "", date_update = "",
  history = NULL)

Arguments

template	either 'gerc', 'urc', or 'cephepi'
watermark	Watermark ('draft')?
title	Study title (character string)
acronym	Study acronym (character string)
version	Version number (character string)
npromo	Promotion number (character string, not used with gerc template)
nct	Clinical trial number (character string, not used with gerc template)
invest	Name of the principal investigator (character string)
biostat	Name of the biostatistician (character string)
methodo	Name of the methodologist (character string, not used with gerc template)
date_lastmodif	Date of last modification of the document (character string)
date_freez	Date of data freezing (character string)
date_update	Date of last history description update (character string)
history	History description. A list of length 1 (min) to 7 (max), each element being a list of four elements: list(version = "Version number", author = "Author", description = c("Description 1", "Description 2"), date = "Date")

Value

a FlexTable object

Author(s)

David Hajage

Examples

## Not run: 
library(biostat2)
library(officer)
doc <- create.officer(template = 'urc',
                     title = 'A great study',
                     watermark = FALSE,
                     acronym = 'GREAT',
                     version = '1.3',
                     npromo = 'AOR17123',
                     nct = 'NCT123456',
                     invest = 'Casimir',
                     biostat = 'Goldorak',
                     methodo = 'Actarus',
                     date_lastmodif = '23/03/1979',
                     date_freez = '22/03/1979',
                     date_update = '24/03/1979',
                     history = list(
                                    list(version = '1',
                                         author = 'Goldorak',
                                         description = c('First description', 
                                         'Primary outcome analysis'),
                                         date = '28/03/1979'),
                                    list(version = '1.3',
                                         author = 'Goldorak',
                                         description = 'Add forgotten things',
                                         date = '29/03/1979')
                                   )
                    )

## End(Not run)

eusebe/biostat2 documentation built on Dec. 27, 2019, 4:22 p.m.