Adds ts repr. Fixes #105

Author: flying-sheep

DESCRIPTION

@@ -56,5 +56,6 @@ Collate:
     'repr_plotly.r'
     'repr_recordedplot.r'
     'repr_spatial.r'
+    'repr_ts.r'
     'repr_vega.r'
 RoxygenNote: 6.1.1

NAMESPACE

@@ -36,6 +36,7 @@ S3method(repr_html,numeric)
 S3method(repr_html,packageIQR)
 S3method(repr_html,shiny.tag)
 S3method(repr_html,shiny.tag.list)
+S3method(repr_html,ts)
 S3method(repr_javascript,default)
 S3method(repr_jpg,default)
 S3method(repr_jpg,recordedplot)
@@ -54,6 +55,7 @@ S3method(repr_latex,list)
 S3method(repr_latex,logical)
 S3method(repr_latex,matrix)
 S3method(repr_latex,numeric)
+S3method(repr_latex,ts)
 S3method(repr_markdown,"function")
 S3method(repr_markdown,Date)
 S3method(repr_markdown,character)
@@ -66,6 +68,7 @@ S3method(repr_markdown,list)
 S3method(repr_markdown,logical)
 S3method(repr_markdown,matrix)
 S3method(repr_markdown,numeric)
+S3method(repr_markdown,ts)
 S3method(repr_pdf,default)
 S3method(repr_pdf,recordedplot)
 S3method(repr_plotly1,default)
@@ -85,6 +88,7 @@ S3method(repr_text,packageIQR)
 S3method(repr_text,recordedplot)
 S3method(repr_text,shiny.tag)
 S3method(repr_text,shiny.tag.list)
+S3method(repr_text,ts)
 S3method(repr_vdom1,default)
 S3method(repr_vega4,default)
 S3method(repr_vegalite2,default)
@@ -118,6 +122,8 @@ importFrom(grDevices,png)
 importFrom(grDevices,replayPlot)
 importFrom(grDevices,svg)
 importFrom(htmltools,renderTags)
+importFrom(stats,.preformat.ts)
+importFrom(stats,ts)
 importFrom(tools,Rd2HTML)
 importFrom(tools,Rd2latex)
 importFrom(tools,Rd2txt)

R/generics.r

@@ -40,16 +40,6 @@ repr_text.default <- function(obj, ...) {
 #' @param ...  parameters of the specific \code{repr_*} functions
 #' 
 #' @seealso \link{repr_text} for the only repr that is always defined
-#' @aliases
-#' repr_html repr_html.default
-#' repr_markdown repr_markdown.default
-#' repr_latex repr_latex.default
-#' repr_json repr_json.default
-#' repr_javascript repr_javascript.default
-#' repr_pdf repr_pdf.default
-#' repr_png repr_png.default
-#' repr_jpg repr_jpg.default
-#' repr_svg repr_svg.default
 #' @name repr-generics
 NULL
 
@@ -177,7 +167,6 @@ repr_vega4.default <- function(obj, ...) NULL
 #' names(mime2repr)
 #' names(format2repr)
 #' 
-#' @aliases mime2repr format2repr
 #' @name *2repr
 #' @export
 mime2repr <- list(

R/repr_factor.r

@@ -3,7 +3,6 @@
 #' @param obj  The factor to create a representation for
 #' @param ...  ignored
 #' 
-#' @aliases repr_markdown.factor repr_latex.factor repr_html.factor
 #' @name repr_*.factor
 #' @include repr_vector.r
 #' @include utils.r

R/repr_function.r

@@ -5,7 +5,6 @@
 #' @param fenced  Should a fenced code block instead of an indented one be used?
 #' @param ...  ignored
 #' 
-#' @aliases repr_html.function repr_latex.function repr_markdown.function
 #' @name repr_*.function
 #' @include utils.r
 NULL

R/repr_help_files_with_topic.r

@@ -5,7 +5,6 @@
 #' @param obj  Help topic to create a representation for
 #' @param ...  ignored
 #' 
-#' @aliases repr_text.help_files_with_topic repr_html.help_files_with_topic repr_latex.help_files_with_topic
 #' @name repr_*.help_files_with_topic
 NULL
 

R/repr_list.r

@@ -3,7 +3,6 @@
 #' @param obj  The list to create a representation for
 #' @param ...  ignored
 #' 
-#' @aliases repr_html.list repr_markdown.list repr_latex.list
 #' @name repr_*.list
 #' @include utils.r
 NULL

R/repr_matrix_df.r

@@ -1,14 +1,13 @@
 #' Tabular data representations
 #' 
-#' HTML and LaTeX representations of Matrix-like objects
+#' HTML, LaTeX, and Markdown representations of Matrix-like objects
 #' 
 #' @param obj  The matrix or data.frame to create a representation for
 #' @param ...  ignored
 #' @param colspec  The colspec for the LaTeX table. The default is given by the option \code{repr.matrix.latex.colspec}
 #' 
 #' @seealso \link{repr-options} for \code{repr.matrix.latex.colspec}
 #' 
-#' @aliases repr_html.matrix repr_html.data.frame repr_latex.matrix repr_latex.data.frame
 #' @name repr_*.matrix/data.frame
 #' @include utils.r
 NULL

R/repr_recordedplot.r

@@ -47,7 +47,6 @@ plot_title <- function(p, default = NULL) {
 #' 
 #' repr_text(p)
 #' 
-#' @aliases repr_text.recordedplot repr_png.recordedplot repr_jpg.recordedplot repr_svg.recordedplot repr_pdf.recordedplot
 #' @name repr_*.recordedplot
 #' @export
 repr_text.recordedplot <- function(obj, ...) {

R/repr_ts.r

@@ -0,0 +1,35 @@
+#' Time series representations
+#' 
+#' HTML, LaTeX, and Markdown representations of \link[stats]{ts} objects.
+#' 
+#' @param obj  The \link[stats]{ts} object to create a representation for
+#' @param ...  ignored
+#' @param colspec  The colspec for the LaTeX table. The default is given by the option \code{repr.matrix.latex.colspec}
+#' 
+#' @seealso \link{repr-options} for \code{repr.matrix.latex.colspec}
+#' 
+#' @importFrom stats ts .preformat.ts
+#' @name repr_*.ts
+NULL
+
+repr_ts_generic <- function(obj, repr_func, ...) {
+	m <- .preformat.ts(obj)
+	# set rows and cols so the whole thing is always displayed 
+	repr_func(m, ..., rows = nrow(m), cols = ncol(m))
+}
+
+#' @name repr_*.ts
+#' @export
+repr_html.ts <- function(obj, ...) repr_ts_generic(obj, repr_html.matrix, ...)
+
+#' @name repr_*.ts
+#' @export
+repr_latex.ts <- function(obj, ...) repr_ts_generic(obj, repr_latex.matrix, ...)
+
+#' @name repr_*.ts
+#' @export
+repr_markdown.ts <- function(obj, ...) repr_ts_generic(obj, repr_markdown.matrix, ...)
+
+#' @name repr_*.ts
+#' @export
+repr_text.ts <- function(obj, ...) repr_ts_generic(obj, repr_text.matrix, ...)