R/TSfilter.R

In ammaciel/ocputest: OpenCPU Test Time Series Test

#' @title TS Filter
#' @name TSfilter
#' @aliases TSfilter
#' @author Adeline Maciel
#'
#' @description Apply a filter over time series
#'
#' @usage TSfilter(ts_data = NULL,
#' type_filter = c("No-filter", "Whittaker", "Savitsky-Golay"))
#'
#' @param ts_data       data set with point via WTSS
#' @param type_filter   name of the filter to be applied
#'
#' @return Plot time series filtered
#' @export
#'
#' @importFrom sits sits_whittaker sits_sgolay sits_merge sits_plot
#' @importFrom magrittr "%>%"
#'

TSfilter <- function(ts_data = NULL, type_filter = c("No-filter", "Whittaker", "Savitsky-Golay")){

  # "Original no filter"
  if(type_filter == "No-filter"){

    res <- ts_data %>%
      sits::sits_plot() %>%
      print()
  }

  # "Whittaker filter"
  if(type_filter == "Whittaker"){

    point_wf <- sits::sits_whittaker(data.tb = ts_data, lambda = 2.0) %>%
      sits::sits_merge (ts_data) %>%
      sits::sits_plot() %>%
      print()
  }

  # Savitsky-Golay filter
  if(type_filter == "Savitsky-Golay"){

    point_sgf <- sits::sits_sgolay(data.tb = ts_data, order = 2, scale = 1) %>%
      sits::sits_merge (ts_data) %>%
      sits::sits_plot() %>%
      print()
  }
  #return nothing
  #invisible()
}

#TSoperation(name_service = "WTSS-INPE", coverage = "MOD13Q1", longitude = -56.245043, latitude = -13.224772, bands = "evi", start_date = "2004-02-14", end_date = "2018-05-12")

# curl -v localhost:5656/ocpu/user/inpe/library/ocputest/R/TSoperation/json -d 'service="WTSS-INPE"&coverage="MOD13Q1"&bands="evi"&long="-56"&lat="-12"&from="2001-01-01"&to="2002-01-01"'



# library(jsonlite)
# args <- fromJSON('{"n":3, "mean": 10, "sd":10}')
# output <- do.call(stats::rnorm, args)
# toJSON(output)
#
# curl https://public.opencpu.org/ocpu/library/stats/R/rnorm/json \ -H "Content-Type: application/json" -d '{"n":3, "mean": 10, "sd":10}'
#
# curl -v https://demo.ocpu.io/stocks/R/smoothplot -d 'ticker="GOOG"&from="2013-01-01"'


# # line 70
# sources: Source[] = [
#   { value: 'http://terrabrasilis.info/deterb/ows', viewValue: 'Deter-b' },
#   { value: 'http://terrabrasilis.info/fip-service/ows', viewValue: 'Cerrado' },
#   { value: 'http://terrabrasilis.info/geoserver/ows', viewValue: 'Prodes' },
#   { value: 'http://terrabrasilis.info/terraamazon/ows', viewValue: 'TerraAmazon' },
#   { value: 'http://siscom.ibama.gov.br/geoserver/ows', viewValue: 'IBAMA' }
# ];