add a sub_period funciton

R/utils.R

@@ -107,3 +107,38 @@ get_name_date_col <- function(precision){
   res <-c("WDAY",res)
   return(res)
 }
+
+
+#' sub_period
+
+#' sub_period
+#' @param tbl_fts tbl friendlyts
+#' @param fromDate fromDate
+#' @param toDate toDate
+#' @param timeResolution timeResolution
+#' @param tzone tzone
+#' @keywords friendlyts
+#' @export
+#' @examples
+#' \dontrun{
+#' sub_period()
+#' }
+sub_period <- function(tbl_fts,fromDate,toDate,timeResolution,tzone="UTC"){
+
+  tmp <- dfts(tbl_fts=tbl_fts,timeResolution=timeResolution,tzone=tzone)
+
+  from = timemanip::YYYYmmddHHMMSS2_chr(as.character(fromDate),tzone=tzone)
+  to = timemanip::YYYYmmddHHMMSS2_chr(as.character(toDate),tzone=tzone)
+  indice <- which((tmp$date >= from) & (tmp$date <= to))
+
+  if (!is.null(indice)) {
+     res <- as_tbl_friendlyts(df=tmp[indice,],precision=timeResolution,date_col="date",date_type="posixlt",CHECKNAS=FALSE)
+  } else stop("indice is NULL")
+
+  return(res)
+}
+
+setnames <- function (object = name, name) {
+    names(object) <- name
+    return(object)
+}

man/sub_period.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{sub_period}
+\alias{sub_period}
+\title{sub_period
+sub_period}
+\usage{
+sub_period(tbl_fts, fromDate, toDate, timeResolution, tzone = "UTC")
+}
+\arguments{
+\item{tbl_fts}{tbl friendlyts}
+
+\item{fromDate}{fromDate}
+
+\item{toDate}{toDate}
+
+\item{timeResolution}{timeResolution}
+
+\item{tzone}{tzone}
+}
+\description{
+sub_period
+sub_period
+}
+\examples{
+\dontrun{
+sub_period()
+}
+}
+\keyword{friendlyts}