mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-24 05:41:53 +01:00
new function
This commit is contained in:
AG Damsbo
parent
c296bdbbd6
commit
1930a6d205
171
R/write_ical.R
Normal file
171
R/write_ical.R
Normal file
@ -0,0 +1,171 @@
|
|||||||
|
|
||||||
|
|
||||||
|
#' Write ical object
|
||||||
|
#'
|
||||||
|
#' This function creates an ical file based on a data frame with mixed events.
|
||||||
|
#' Export as .ics file using `calendar::ic_write()`.
|
||||||
|
#'
|
||||||
|
#' @param df A data frame with the calendar data
|
||||||
|
#' @param date The name of the event date column in the data frame
|
||||||
|
#' @param date.end The name of the end date column in the data frame
|
||||||
|
#' @param title The name of the title column in the data frame
|
||||||
|
#' @param time.start The name of the start time column in the data frame
|
||||||
|
#' @param time.end The name of the end time column in the data frame
|
||||||
|
#' @param place The name of the place column in the data frame
|
||||||
|
#' @param place.def Default location to use when place is NA
|
||||||
|
#' @param time.def Default start time to use when time.start is NA
|
||||||
|
#' @param time.dur Default duration of the event in minutes, if time.end is NA
|
||||||
|
#' @param descr Name of description/notes column if any.
|
||||||
|
#' @param link Name of link column, if any.
|
||||||
|
#' @param t.zone A character string of time zone for events. The string must be
|
||||||
|
#' a time zone that is recognized by the user's OS.
|
||||||
|
#'
|
||||||
|
#' @return ical object
|
||||||
|
#'
|
||||||
|
#' @examples
|
||||||
|
#' df <- data.frame(
|
||||||
|
#' date = c("2020-02-10", "2020-02-11"),
|
||||||
|
#' end = c("2020-02-13",NA),
|
||||||
|
#' title = c("Conference", "Lunch"),
|
||||||
|
#' start = c("12:00:00", NA),
|
||||||
|
#' bye = c("13:00:00", NA),
|
||||||
|
#' note = c("Hi there","Remember to come"),
|
||||||
|
#' link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
|
||||||
|
#' )
|
||||||
|
#'
|
||||||
|
#' write_ical(
|
||||||
|
#' df,
|
||||||
|
#' date = "date",
|
||||||
|
#' date.end = "end",
|
||||||
|
#' title = "title",
|
||||||
|
#' time.start = "start",
|
||||||
|
#' time.end = "bye",
|
||||||
|
#' place.def = "Conference Room",
|
||||||
|
#' descr = "note",
|
||||||
|
#' link = "link"
|
||||||
|
#' )
|
||||||
|
#'
|
||||||
|
#' @export
|
||||||
|
#'
|
||||||
|
#' @importFrom lubridate ymd hms dminutes
|
||||||
|
#' @importFrom dplyr if_else
|
||||||
|
#' @importFrom calendar ic_guid ic_write
|
||||||
|
#'
|
||||||
|
#' @seealso
|
||||||
|
#' [calendar package](https://github.com/ATFutures/calendar/)
|
||||||
|
#' [icalendar standard webpage](https://icalendar.org)
|
||||||
|
#'
|
||||||
|
#'
|
||||||
|
write_ical <-
|
||||||
|
function(df,
|
||||||
|
date = "date",
|
||||||
|
date.end = NA,
|
||||||
|
title = "title",
|
||||||
|
time.start = "start",
|
||||||
|
time.end = "end",
|
||||||
|
place = NA,
|
||||||
|
place.def = NA,
|
||||||
|
time.def = "10:00:00",
|
||||||
|
time.dur = 60,
|
||||||
|
descr = NA,
|
||||||
|
link = NA,
|
||||||
|
t.zone = "CET") {
|
||||||
|
if (!date %in% colnames(df)) {
|
||||||
|
stop("Supplied date is not a valid column name")
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!title %in% colnames(df)) {
|
||||||
|
stop("Supplied title is not a valid column name")
|
||||||
|
}
|
||||||
|
|
||||||
|
if (is.character(place) & !place %in% colnames(df)) {
|
||||||
|
stop("Supplied place is not a valid column name")
|
||||||
|
}
|
||||||
|
|
||||||
|
if (is.character(time.start) & !time.start %in% colnames(df)) {
|
||||||
|
stop("Supplied time.start is not a valid column name")
|
||||||
|
}
|
||||||
|
|
||||||
|
if (is.character(time.end) & !time.end %in% colnames(df)) {
|
||||||
|
stop("Supplied time.end is not a valid column name")
|
||||||
|
}
|
||||||
|
|
||||||
|
# Both ifelse() and dplyr::if_else() has problems and gives errors
|
||||||
|
# handling NA's, as everything is evaluated.
|
||||||
|
# This is my take on a approach by row.
|
||||||
|
df <- do.call(rbind,
|
||||||
|
lapply(
|
||||||
|
split(df,
|
||||||
|
seq_len(nrow(df))),
|
||||||
|
function(i) {
|
||||||
|
if (is.na(i[time.start])) {
|
||||||
|
i$start_time <-
|
||||||
|
lubridate::ymd(i[, date], tz = t.zone) +
|
||||||
|
lubridate::hms(time.def)
|
||||||
|
}
|
||||||
|
else if (!is.na(i[, time.start])) {
|
||||||
|
i$start_time <-
|
||||||
|
lubridate::ymd(i[, date], tz = t.zone) +
|
||||||
|
lubridate::hms(i[, time.start])
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if (is.character(date.end) &
|
||||||
|
!is.na(i[, time.end]) &
|
||||||
|
is.na(i[, date.end])) {
|
||||||
|
stop("time.end is needed for entries
|
||||||
|
with supplied date.end")
|
||||||
|
}
|
||||||
|
else if (is.character(date.end) &
|
||||||
|
!is.na(i[, time.end]) &
|
||||||
|
!is.na(i[, date.end])) {
|
||||||
|
i$end_time <-
|
||||||
|
lubridate::ymd(i[, date.end], tz = t.zone) +
|
||||||
|
lubridate::hms(i[, time.end])
|
||||||
|
}
|
||||||
|
else if (!is.na(i[, time.end])) {
|
||||||
|
i$end_time <-
|
||||||
|
lubridate::ymd(i[, date], tz = t.zone) +
|
||||||
|
lubridate::hms(i[, time.end])
|
||||||
|
} else {
|
||||||
|
i$end_time <-
|
||||||
|
i$start_time + lubridate::dminutes(time.dur)
|
||||||
|
}
|
||||||
|
|
||||||
|
i
|
||||||
|
|
||||||
|
}))
|
||||||
|
|
||||||
|
place_meet <- rep(NA, nrow(df))
|
||||||
|
|
||||||
|
if (!is.na(place)) {
|
||||||
|
place_meet <- df[, place]
|
||||||
|
}
|
||||||
|
|
||||||
|
place_meet[is.na(place_meet)] <- place.def
|
||||||
|
|
||||||
|
df_mod <- data.frame(
|
||||||
|
SUMMARY = df[, title],
|
||||||
|
DTSTART = df[, "start_time"],
|
||||||
|
DTEND = df[, "end_time"],
|
||||||
|
UID = replicate(nrow(df), calendar::ic_guid()),
|
||||||
|
stringsAsFactors = FALSE
|
||||||
|
)
|
||||||
|
|
||||||
|
if (!all(is.na(place_meet))) {
|
||||||
|
df_mod <- data.frame(df_mod,
|
||||||
|
LOCATION = place_meet)
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is.na(link)) {
|
||||||
|
df_mod <- data.frame(df_mod,
|
||||||
|
URL = df[, link])
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is.na(descr)) {
|
||||||
|
df_mod <- data.frame(df_mod,
|
||||||
|
DESCRIPTION = df[, descr])
|
||||||
|
}
|
||||||
|
|
||||||
|
calendar::ical(df_mod)
|
||||||
|
}
|
||||||
198
docs/reference/write_ical.html
Normal file
198
docs/reference/write_ical.html
Normal file
@ -0,0 +1,198 @@
|
|||||||
|
<!DOCTYPE html>
|
||||||
|
<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="This function creates an ical file based on a data frame with mixed events.
|
||||||
|
Export as .ics file using calendar::ic_write()."><title>Write ical object — write_ical • stRoke</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><meta property="og:title" content="Write ical object — write_ical"><meta property="og:description" content="This function creates an ical file based on a data frame with mixed events.
|
||||||
|
Export as .ics file using calendar::ic_write()."><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
|
||||||
|
<script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
|
||||||
|
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
|
||||||
|
<![endif]--></head><body>
|
||||||
|
<a href="#main" class="visually-hidden-focusable">Skip to contents</a>
|
||||||
|
|
||||||
|
|
||||||
|
<nav class="navbar fixed-top navbar-light navbar-expand-lg bg-light"><div class="container">
|
||||||
|
|
||||||
|
<a class="navbar-brand me-2" href="../index.html">stRoke</a>
|
||||||
|
|
||||||
|
<small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">23.1.8</small>
|
||||||
|
|
||||||
|
|
||||||
|
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
|
||||||
|
<span class="navbar-toggler-icon"></span>
|
||||||
|
</button>
|
||||||
|
|
||||||
|
<div id="navbar" class="collapse navbar-collapse ms-3">
|
||||||
|
<ul class="navbar-nav me-auto"><li class="active nav-item">
|
||||||
|
<a class="nav-link" href="../reference/index.html">Reference</a>
|
||||||
|
</li>
|
||||||
|
<li class="nav-item dropdown">
|
||||||
|
<a href="#" class="nav-link dropdown-toggle" data-bs-toggle="dropdown" role="button" aria-expanded="false" aria-haspopup="true" id="dropdown-articles">Articles</a>
|
||||||
|
<div class="dropdown-menu" aria-labelledby="dropdown-articles">
|
||||||
|
<a class="dropdown-item" href="../articles/toolbox.html">Toolbox</a>
|
||||||
|
</div>
|
||||||
|
</li>
|
||||||
|
<li class="nav-item">
|
||||||
|
<a class="nav-link" href="../news/index.html">Changelog</a>
|
||||||
|
</li>
|
||||||
|
</ul><form class="form-inline my-2 my-lg-0" role="search">
|
||||||
|
<input type="search" class="form-control me-sm-2" aria-label="Toggle navigation" name="search-input" data-search-index="../search.json" id="search-input" placeholder="Search for" autocomplete="off"></form>
|
||||||
|
|
||||||
|
<ul class="navbar-nav"><li class="nav-item">
|
||||||
|
<a class="external-link nav-link" href="https://github.com/agdamsbo/stRoke/" aria-label="github">
|
||||||
|
<span class="fab fa fab fa-github fa-lg"></span>
|
||||||
|
|
||||||
|
</a>
|
||||||
|
</li>
|
||||||
|
</ul></div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</nav><div class="container template-reference-topic">
|
||||||
|
<div class="row">
|
||||||
|
<main id="main" class="col-md-9"><div class="page-header">
|
||||||
|
<img src="" class="logo" alt=""><h1>Write ical object</h1>
|
||||||
|
<small class="dont-index">Source: <a href="https://github.com/agdamsbo/stRoke/blob/HEAD/R/write_ical.R" class="external-link"><code>R/write_ical.R</code></a></small>
|
||||||
|
<div class="d-none name"><code>write_ical.Rd</code></div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="ref-description section level2">
|
||||||
|
<p>This function creates an ical file based on a data frame with mixed events.
|
||||||
|
Export as .ics file using <code><a href="https://rdrr.io/pkg/calendar/man/ic_write.html" class="external-link">calendar::ic_write()</a></code>.</p>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
|
||||||
|
<div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">write_ical</span><span class="op">(</span></span>
|
||||||
|
<span> <span class="va">df</span>,</span>
|
||||||
|
<span> date <span class="op">=</span> <span class="st">"date"</span>,</span>
|
||||||
|
<span> date.end <span class="op">=</span> <span class="cn">NA</span>,</span>
|
||||||
|
<span> title <span class="op">=</span> <span class="st">"title"</span>,</span>
|
||||||
|
<span> time.start <span class="op">=</span> <span class="st">"start"</span>,</span>
|
||||||
|
<span> time.end <span class="op">=</span> <span class="st">"end"</span>,</span>
|
||||||
|
<span> place <span class="op">=</span> <span class="cn">NA</span>,</span>
|
||||||
|
<span> place.def <span class="op">=</span> <span class="cn">NA</span>,</span>
|
||||||
|
<span> time.def <span class="op">=</span> <span class="st">"10:00:00"</span>,</span>
|
||||||
|
<span> time.dur <span class="op">=</span> <span class="fl">60</span>,</span>
|
||||||
|
<span> descr <span class="op">=</span> <span class="cn">NA</span>,</span>
|
||||||
|
<span> link <span class="op">=</span> <span class="cn">NA</span>,</span>
|
||||||
|
<span> t.zone <span class="op">=</span> <span class="st">"CET"</span></span>
|
||||||
|
<span><span class="op">)</span></span></code></pre></div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
|
||||||
|
<dl><dt>df</dt>
|
||||||
|
<dd><p>A data frame with the calendar data</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>date</dt>
|
||||||
|
<dd><p>The name of the event date column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>date.end</dt>
|
||||||
|
<dd><p>The name of the end date column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>title</dt>
|
||||||
|
<dd><p>The name of the title column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>time.start</dt>
|
||||||
|
<dd><p>The name of the start time column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>time.end</dt>
|
||||||
|
<dd><p>The name of the end time column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>place</dt>
|
||||||
|
<dd><p>The name of the place column in the data frame</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>place.def</dt>
|
||||||
|
<dd><p>Default location to use when place is NA</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>time.def</dt>
|
||||||
|
<dd><p>Default start time to use when time.start is NA</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>time.dur</dt>
|
||||||
|
<dd><p>Default duration of the event in minutes, if time.end is NA</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>descr</dt>
|
||||||
|
<dd><p>Name of description/notes column if any.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>link</dt>
|
||||||
|
<dd><p>Name of link column, if any.</p></dd>
|
||||||
|
|
||||||
|
|
||||||
|
<dt>t.zone</dt>
|
||||||
|
<dd><p>A character string of time zone for events. The string must be
|
||||||
|
a time zone that is recognized by the user's OS.</p></dd>
|
||||||
|
|
||||||
|
</dl></div>
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
|
||||||
|
|
||||||
|
|
||||||
|
<p>ical object</p>
|
||||||
|
</div>
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="see-also">See also<a class="anchor" aria-label="anchor" href="#see-also"></a></h2>
|
||||||
|
<div class="dont-index"><p><a href="https://github.com/ATFutures/calendar/" class="external-link">calendar package</a>
|
||||||
|
<a href="https://icalendar.org" class="external-link">icalendar standard webpage</a></p></div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="section level2">
|
||||||
|
<h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
|
||||||
|
<div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">df</span> <span class="op"><-</span> <span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span></span></span>
|
||||||
|
<span class="r-in"><span> date <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2020-02-10"</span>, <span class="st">"2020-02-11"</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> end <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"2020-02-13"</span>,<span class="cn">NA</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> title <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Conference"</span>, <span class="st">"Lunch"</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> start <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"12:00:00"</span>, <span class="cn">NA</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> bye <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"13:00:00"</span>, <span class="cn">NA</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> note <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Hi there"</span>,<span class="st">"Remember to come"</span><span class="op">)</span>,</span></span>
|
||||||
|
<span class="r-in"><span> link <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"https://icalendar.org"</span>,<span class="st">"https://agdamsbo.github.io/stRoke/"</span><span class="op">)</span></span></span>
|
||||||
|
<span class="r-in"><span><span class="op">)</span></span></span>
|
||||||
|
<span class="r-in"><span></span></span>
|
||||||
|
<span class="r-in"><span><span class="fu">write_ical</span><span class="op">(</span></span></span>
|
||||||
|
<span class="r-in"><span> <span class="va">df</span>,</span></span>
|
||||||
|
<span class="r-in"><span> date <span class="op">=</span> <span class="st">"date"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> date.end <span class="op">=</span> <span class="st">"end"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> title <span class="op">=</span> <span class="st">"title"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> time.start <span class="op">=</span> <span class="st">"start"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> time.end <span class="op">=</span> <span class="st">"bye"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> place.def <span class="op">=</span> <span class="st">"Conference Room"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> descr <span class="op">=</span> <span class="st">"note"</span>,</span></span>
|
||||||
|
<span class="r-in"><span> link <span class="op">=</span> <span class="st">"link"</span></span></span>
|
||||||
|
<span class="r-in"><span><span class="op">)</span></span></span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> <span style="color: #949494;"># A tibble: 2 × 7</span></span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> SUMMARY DTSTART DTEND UID LOCAT…¹ URL DESCR…²</span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> <span style="color: #949494; font-style: italic;"><chr></span> <span style="color: #949494; font-style: italic;"><dttm></span> <span style="color: #949494; font-style: italic;"><dttm></span> <span style="color: #949494; font-style: italic;"><chr></span> <span style="color: #949494; font-style: italic;"><chr></span> <span style="color: #949494; font-style: italic;"><chr></span> <span style="color: #949494; font-style: italic;"><chr></span> </span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> <span style="color: #BCBCBC;">1</span> Conference 2020-02-10 <span style="color: #949494;">12:00:00</span> 2020-02-13 <span style="color: #949494;">13:00:00</span> ical… Confer… http… Hi the…</span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> <span style="color: #BCBCBC;">2</span> Lunch 2020-02-11 <span style="color: #949494;">10:00:00</span> 2020-02-11 <span style="color: #949494;">11:00:00</span> ical… Confer… http… Rememb…</span>
|
||||||
|
<span class="r-out co"><span class="r-pr">#></span> <span style="color: #949494;"># … with abbreviated variable names ¹LOCATION, ²DESCRIPTION</span></span>
|
||||||
|
<span class="r-in"><span></span></span>
|
||||||
|
</code></pre></div>
|
||||||
|
</div>
|
||||||
|
</main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
|
||||||
|
</nav></aside></div>
|
||||||
|
|
||||||
|
|
||||||
|
<footer><div class="pkgdown-footer-left">
|
||||||
|
<p></p><p>Developed by Andreas Gammelgaard Damsbo.</p>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="pkgdown-footer-right">
|
||||||
|
<p></p><p>Site built with <a href="https://pkgdown.r-lib.org/" class="external-link">pkgdown</a> 2.0.7.</p>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</footer></div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</body></html>
|
||||||
|
|
||||||
85
man/write_ical.Rd
Normal file
85
man/write_ical.Rd
Normal file
@ -0,0 +1,85 @@
|
|||||||
|
% Generated by roxygen2: do not edit by hand
|
||||||
|
% Please edit documentation in R/write_ical.R
|
||||||
|
\name{write_ical}
|
||||||
|
\alias{write_ical}
|
||||||
|
\title{Write ical object}
|
||||||
|
\usage{
|
||||||
|
write_ical(
|
||||||
|
df,
|
||||||
|
date = "date",
|
||||||
|
date.end = NA,
|
||||||
|
title = "title",
|
||||||
|
time.start = "start",
|
||||||
|
time.end = "end",
|
||||||
|
place = NA,
|
||||||
|
place.def = NA,
|
||||||
|
time.def = "10:00:00",
|
||||||
|
time.dur = 60,
|
||||||
|
descr = NA,
|
||||||
|
link = NA,
|
||||||
|
t.zone = "CET"
|
||||||
|
)
|
||||||
|
}
|
||||||
|
\arguments{
|
||||||
|
\item{df}{A data frame with the calendar data}
|
||||||
|
|
||||||
|
\item{date}{The name of the event date column in the data frame}
|
||||||
|
|
||||||
|
\item{date.end}{The name of the end date column in the data frame}
|
||||||
|
|
||||||
|
\item{title}{The name of the title column in the data frame}
|
||||||
|
|
||||||
|
\item{time.start}{The name of the start time column in the data frame}
|
||||||
|
|
||||||
|
\item{time.end}{The name of the end time column in the data frame}
|
||||||
|
|
||||||
|
\item{place}{The name of the place column in the data frame}
|
||||||
|
|
||||||
|
\item{place.def}{Default location to use when place is NA}
|
||||||
|
|
||||||
|
\item{time.def}{Default start time to use when time.start is NA}
|
||||||
|
|
||||||
|
\item{time.dur}{Default duration of the event in minutes, if time.end is NA}
|
||||||
|
|
||||||
|
\item{descr}{Name of description/notes column if any.}
|
||||||
|
|
||||||
|
\item{link}{Name of link column, if any.}
|
||||||
|
|
||||||
|
\item{t.zone}{A character string of time zone for events. The string must be
|
||||||
|
a time zone that is recognized by the user's OS.}
|
||||||
|
}
|
||||||
|
\value{
|
||||||
|
ical object
|
||||||
|
}
|
||||||
|
\description{
|
||||||
|
This function creates an ical file based on a data frame with mixed events.
|
||||||
|
Export as .ics file using \code{calendar::ic_write()}.
|
||||||
|
}
|
||||||
|
\examples{
|
||||||
|
df <- data.frame(
|
||||||
|
date = c("2020-02-10", "2020-02-11"),
|
||||||
|
end = c("2020-02-13",NA),
|
||||||
|
title = c("Conference", "Lunch"),
|
||||||
|
start = c("12:00:00", NA),
|
||||||
|
bye = c("13:00:00", NA),
|
||||||
|
note = c("Hi there","Remember to come"),
|
||||||
|
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
|
||||||
|
)
|
||||||
|
|
||||||
|
write_ical(
|
||||||
|
df,
|
||||||
|
date = "date",
|
||||||
|
date.end = "end",
|
||||||
|
title = "title",
|
||||||
|
time.start = "start",
|
||||||
|
time.end = "bye",
|
||||||
|
place.def = "Conference Room",
|
||||||
|
descr = "note",
|
||||||
|
link = "link"
|
||||||
|
)
|
||||||
|
|
||||||
|
}
|
||||||
|
\seealso{
|
||||||
|
\href{https://github.com/ATFutures/calendar/}{calendar package}
|
||||||
|
\href{https://icalendar.org}{icalendar standard webpage}
|
||||||
|
}
|
||||||
44
tests/testthat/test-write_ical.R
Normal file
44
tests/testthat/test-write_ical.R
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
test_that("write_ical() returns a ical object", {
|
||||||
|
df <- data.frame(
|
||||||
|
date = c("2020-02-10", "2020-02-11"),
|
||||||
|
date.end = c("2020-02-13",NA),
|
||||||
|
title = c("Conference", "Lunch"),
|
||||||
|
start = c("12:00:00", NA),
|
||||||
|
end = c("13:00:00", NA),
|
||||||
|
note = c("Hi there","Remember to come"),
|
||||||
|
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
|
||||||
|
)
|
||||||
|
|
||||||
|
expect_s3_class(write_ical(df,
|
||||||
|
date.end = "date.end"), "ical")
|
||||||
|
})
|
||||||
|
|
||||||
|
test_that("write_ical() returns error", {
|
||||||
|
df <- data.frame(
|
||||||
|
date = c("2020-02-10", "2020-02-11"),
|
||||||
|
title = c("Conference", "Lunch"),
|
||||||
|
start = c("12:00:00", NA),
|
||||||
|
end = c("13:00:00", NA),
|
||||||
|
note = c("Hi there","Remember to come"),
|
||||||
|
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
|
||||||
|
)
|
||||||
|
expect_error(write_ical(df, date = "wrong"))
|
||||||
|
expect_error(write_ical(df, place = "wrong"))
|
||||||
|
expect_error(write_ical(df, title = "wrong"))
|
||||||
|
expect_error(write_ical(df, time.start = "wrong"))
|
||||||
|
expect_error(write_ical(df, time.end = "wrong"))
|
||||||
|
})
|
||||||
|
|
||||||
|
test_that("write_ical() returns error", {
|
||||||
|
df <- data.frame(
|
||||||
|
date = c("2020-02-10", "2020-02-11"),
|
||||||
|
date.end = c(NA,"2020-02-13"),
|
||||||
|
title = c("Conference", "Lunch"),
|
||||||
|
start = c("12:00:00", NA),
|
||||||
|
end = c("13:00:00", NA),
|
||||||
|
note = c("Hi there","Remember to come"),
|
||||||
|
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
|
||||||
|
)
|
||||||
|
expect_error(write_ical(df,
|
||||||
|
date.end = "date.end"))
|
||||||
|
})
|
||||||
Loading…
Reference in New Issue
Block a user