Merge pull request #31 from ATFutures/cran1

Cran feedback fixes, #13
ATFutures · Feb 5, 2019 · 6c67c0f · 6c67c0f
2 parents 770cdcc + b698951
commit 6c67c0f
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 10 deletions.
diff --git a/R/ic_read.R b/R/ic_read.R
@@ -29,15 +29,14 @@ ic_read <- function(file) {
 #' @export
 #' @examples
 #' ic <- ical(ical_example)
-#' ic_write(ic, "ic.ics")
+#' ic_write(ic, file.path(tempdir(), "ic.ics"))
 #' f <- system.file("extdata", "example.ics", package = "calendar")
-#' identical(readLines("ic.ics"), readLines(f))
+#' identical(readLines(file.path(tempdir(), "ic.ics")), readLines(f))
 #' f <- system.file("extdata", "england-and-wales.ics", package = "calendar")
 #' ics_df <- ic_read(f)
-#' ic_write(ics_df, "ic.ics")
+#' ic_write(ics_df, file.path(tempdir(), "ic.ics"))
 #' # test similarity between files with diff tool like meld - from shell:
 #' # meld ic.ics inst/extdata/england-and-wales.ics
-#' file.remove("ic.ics")
 ic_write <- function(ic, file) {
   ic_char <- ic_character(ic)
   writeLines(ic_char, file)

diff --git a/R/ical.R b/R/ical.R
@@ -76,7 +76,6 @@ ic_attributes_vec <- function(
 #' ic <- ical(ical_example)
 #' ic_character(ic)
 #' identical(ical_example, ic_character(ic))
-#' # ic_character(ic[c(1, 1), ]) # multiple events
 ic_character <- function(ic) {
   char_attributes <- paste(names(attributes(ic)$ical), attributes(ic)$ical, sep = ":")
   char_events <- ic_char_event(ic)

diff --git a/man/ic_character.Rd b/man/ic_character.Rd
diff --git a/man/ic_write.Rd b/man/ic_write.Rd