-
Notifications
You must be signed in to change notification settings - Fork 6
/
README.Rmd
175 lines (112 loc) · 4.23 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r setup, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "##",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
```{r, include=FALSE}
options("width"=110)
tmp <- packageDescription( basename(getwd()) )
```
```{r, results='asis', echo=FALSE}
cat("##", tmp$Title)
```
```{r, include=FALSE}
filelist.R <- list.files("R", recursive = TRUE, pattern="\\.R$", ignore.case = TRUE, full.names = TRUE)
filelist.tests <- list.files("tests", recursive = TRUE, pattern="\\.R$", ignore.case = TRUE, full.names = TRUE)
filelist.cpp <- list.files("src", recursive = TRUE, pattern="\\.cpp$", ignore.case = TRUE, full.names = TRUE)
lines.R <- unlist(lapply(filelist.R, readLines))
lines.tests <- unlist(lapply(filelist.tests, readLines))
lines.cpp <- unlist(lapply(filelist.cpp, readLines))
length.R <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.R, value = TRUE, invert = TRUE))
length.tests <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.tests, value = TRUE, invert = TRUE))
length.cpp <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.cpp, value = TRUE, invert = TRUE))
```
**Status**
*lines of R code:* `r length.R`, *lines of test code:* `r length.tests`
[![Project Status: Initial development is in progress, but there has not yet been a stable, usable release suitable for the public.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active)
<a href="https://travis-ci.org/petermeissner/ical">
<img src="https://api.travis-ci.org/petermeissner/ical.svg?branch=master">
<a/>
[![AppVeyor build status](https://ci.appveyor.com/api/projects/status/github/petermeissner/ical?branch=master&svg=true)](https://ci.appveyor.com/project/petermeissner/ical)
<a href="https://cran.r-project.org/package=ical">
<img src="http://www.r-pkg.org/badges/version/ical">
</a>
<a href="https://codecov.io/gh/petermeissner/ical">
<img src="https://codecov.io/gh/petermeissner/ical/branch/master/graph/badge.svg" alt="Codecov" />
</a>
<img src="http://cranlogs.r-pkg.org/badges/grand-total/ical">
<img src="http://cranlogs.r-pkg.org/badges/ical">
**Development version**
```{r, include=FALSE}
source_files <-
grep(
"/R/|/src/|/tests/",
list.files(recursive = TRUE, full.names = TRUE),
value = TRUE
)
last_change <-
as.character(
format(max(file.info(source_files)$mtime), tz="UTC")
)
```
```{r, results='asis', echo=FALSE}
cat(tmp$Version)
cat(" - ")
cat(stringr::str_replace(last_change, " ", " / "))
```
**Description**
```{r, results='asis', echo=FALSE}
cat(tmp$Description)
```
**License**
```{r, results='asis', echo=FALSE}
cat(tmp$License, "<br>")
cat(tmp$Author)
```
**Contribution - AKA The-Think-Twice-Be-Nice-Rule**
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms:
http://contributor-covenant.org/version/1/0/0/
## Other Packages
There is one other package on CRAN that does calendar file parsing, too and which might be worth a
look or two since is dedicated to cover a much broader range of use cases than ical -
e.g. reading AND writing ical files:
- Repo: https://github.com/ATFutures/calendar
- CRAN page: https://cran.r-project.org/web/packages/calendar/index.html
- Vignette: https://cran.r-project.org/web/packages/calendar/vignettes/ical-creating-calendars.html
## Installation
**Installation and start - stable version**
```{r, eval=FALSE}
install.packages("ical")
library(ical)
```
**Installation and start - development version**
```{r, eval=FALSE}
if (!require("V8")) {
install.packages("V8")
}
devtools::install_github("petermeissner/ical")
library(ical)
```
## Usage
**laoding package**
```{r}
library(ical)
```
**get path to a ical file**
```{r}
ical_file <- system.file("birthdays.ics", package = "ical")
```
**parse file to data.frame**
```{r}
ical_parse_df(ical_file)
```
## Sources
- https://en.wikipedia.org/wiki/ICalendar
- https://www.kanzaki.com/docs/ical/