addMatch | R Documentation |
Add a new match to the account.
addMatch(object, ...) <- value
## S3 replacement method for class 'butilsAccount'
addMatch(
object,
involved = NULL,
date = as.Date(NA),
shuttlecock = NULL,
price.shuttlecock = 175/12,
refund = NULL,
note = "",
print.balance = TRUE,
replace.entry = FALSE,
...
) <- value
object |
the account. |
... |
ignored. |
value |
[numeric] a named vector describing name paid what. |
involved |
[vector of characters] the names of the players. |
date |
[date] the date at which the activity happen. |
shuttlecock |
[interger > 0] the number of shuttlecock used. |
price.shuttlecock |
[numeric] the price of a single shuttlecock. |
refund |
[list] A named list indicating who has refunded who. |
note |
[character] additional text. |
print.balance |
[logical] should the balance for the match be displayed. |
replace.entry |
[logical] erase any entry that have the same name. |
#### Create an account ####
myAcc <- createAccount()
#### Ease input with short names ####
addNickName(myAcc) <- list("Brice Ozenne" = "Brice",
"Sebastian Holst" = c("Seb","Sebastian"),
"Thomas S" = "Thomas")
#### Add a single - no shuttlecock ####
addMatch(myAcc, date = "12-06-2017", involved = c("Brice","Sebastian")) <- c("Sebastian" = 200)
addMatch(myAcc, date = "12-06-2017", involved = c("Brice","Sebastian","Sebastian")) <- c("Sebastian" = 200)
addMatch(myAcc, date = "15-06-17", shuttlecock = 5,
involved = c("Brice","Sebastian")) <- c("Thomas" = 200)
addActivity(myAcc,
label = "Shuttlecock-Brice",
date = as.Date("18-01-13"),
note = "shuttlecock (1 tube)",
type = "Buy-Shuttlecock") <- c("Brice" = 170)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.