Commit 55b9fb7a authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

function names homogeneization

parent 52e90a38
# Generated by roxygen2: do not edit by hand
export(luftlyr_friendlydf)
export(luftlyr_getdata)
export(luftlyr_getmeta)
export(luftlyr_df_data)
export(luftlyr_friendly)
export(luftlyr_get_data)
export(luftlyr_get_meta)
......@@ -11,10 +11,10 @@
#' }
luftlyr_df_data <- function(x,res){
if (x$dateStructObj$COL_DATE) {
tmp <- df_data_(x=x,ugly_df=res)
tmp <- df_data(x=x,ugly_df=res)
} else if (!x$dateStructObj$COL_DATE){
tmp <- friendlyr::checkDate(df = friendly_df_(x=x,ugly_df=res), timeObj=x$timeObj, missingValues = NA)
tmp <- friendlyr::checkDate(df = df_data(x=x,ugly_df=res), timeObj=x$timeObj, missingValues = NA)
} else stop("COL_DATE in the right format")
......
......@@ -11,17 +11,4 @@
#' }
luftlyr_friendly <- function(fn,type) {
return(get(paste0("luftly_",fn,"_",type)))
db <- luftkvalr::luftkvalr()
db$start(...)
tmp_st <- db$GetAQStations(stationIDs=x$stationObj$station_id,locationName=x$stationObj$locationName)
tmp_ts <- db$GetAQTimeseries(stationIDs=tmp_st$ST_ID,componentName=x$elementObj$element_id)
res <- db$GetAQData(stationIDs=tmp_st$ST_ID,
timeSeriesIDs=tmp_ts$TS_ID,
fromDateTime=as.character(x$timeObj$fromDateTime()),
toDateTime=as.character(x$timeObj$toDateTime()))
db$stop()
#Negative values
res[which(res$TE_VALUE<0),"TE_VALUE"]<-NA
return(res)
}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/luftlyr_friendlydf.R
\name{luftlyr_friendlydf}
\alias{luftlyr_friendlydf}
\title{luftlyr_friendlydf
luftlyr_friendlydf}
% Please edit documentation in R/luftlyr_df.R
\name{luftlyr_df_data}
\alias{luftlyr_df_data}
\title{luftlyr_df_data
luftlyr_df_data}
\usage{
luftlyr_friendlydf(x, res)
luftlyr_df_data(x, res)
}
\arguments{
\item{x}{request object}
......@@ -13,12 +13,12 @@ luftlyr_friendlydf(x, res)
\item{res}{resulted data.frame}
}
\description{
luftlyr_friendlydf
luftlyr_friendlydf
luftlyr_df_data
luftlyr_df_data
}
\examples{
\dontrun{
luftlyr_friendlydf()
luftlyr_df_data()
}
}
\keyword{luftlyr}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/luftlyr_friendly.R
\name{luftlyr_friendly}
\alias{luftlyr_friendly}
\title{luftlyr_friendly
luftlyr_friendly}
\usage{
luftlyr_friendly(fn, type)
}
\arguments{
\item{fn}{character fun}
\item{type}{character type}
}
\description{
luftlyr_friendly
luftlyr_friendly
}
\examples{
\dontrun{
luftlyr_friendly()
}
}
\keyword{luftlyr}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/luftlyr_getdata.R
\name{luftlyr_getdata}
\alias{luftlyr_getdata}
\title{luftlyr_getdata
luftlyr_getdata}
% Please edit documentation in R/luftlyr_get.R
\name{luftlyr_get_data}
\alias{luftlyr_get_data}
\title{luftlyr_get_data
luftlyr_get_data}
\usage{
luftlyr_getdata(x, ...)
luftlyr_get_data(x, ...)
}
\arguments{
\item{x}{request object}
......@@ -13,12 +13,12 @@ luftlyr_getdata(x, ...)
\item{...}{authentication options}
}
\description{
luftlyr_getdata
luftlyr_getdata
luftlyr_get_data
luftlyr_get_data
}
\examples{
\dontrun{
luftlyr_getdata()
luftlyr_get_data()
}
}
\keyword{luftlyr}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/luftlyr_getdata.R
\name{luftlyr_getmeta}
\alias{luftlyr_getmeta}
\title{luftlyr_getmeta
% Please edit documentation in R/luftlyr_get.R
\name{luftlyr_get_meta}
\alias{luftlyr_get_meta}
\title{luftlyr_get_meta
luftlyr_getmeta}
\usage{
luftlyr_getmeta(x, ...)
luftlyr_get_meta(x, ...)
}
\arguments{
\item{x}{request object}
......@@ -13,12 +13,12 @@ luftlyr_getmeta(x, ...)
\item{...}{authentication options}
}
\description{
luftlyr_getmeta
luftlyr_get_meta
luftlyr_getmeta
}
\examples{
\dontrun{
luftlyr_getmeta()
luftlyr_get_meta()
}
}
\keyword{luftlyr}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment