From 65cdea76de0ecc20dd561a9513fda93b9cd668b9 Mon Sep 17 00:00:00 2001 From: Abhinav Pandey Date: Mon, 8 Jul 2024 15:40:35 +0530 Subject: [PATCH] Roxygenise documents Signed-off-by: Abhinav Pandey --- base/db/R/get.new.site.R | 1 + base/db/man/get.new.site.Rd | 5 +++-- modules/data.atmosphere/R/met.process.R | 2 +- modules/data.land/R/ic_process.R | 2 +- modules/data.land/R/soil_process.R | 2 +- 5 files changed, 7 insertions(+), 5 deletions(-) diff --git a/base/db/R/get.new.site.R b/base/db/R/get.new.site.R index 7f510a09705..35528688d1b 100644 --- a/base/db/R/get.new.site.R +++ b/base/db/R/get.new.site.R @@ -12,6 +12,7 @@ ##' @title Get New Site Info ##' @param site a dataframe with site information on lat, lon and time_zone ##' @param con Database connection object +##' latlon Global latlon abjoect which will store updated lat/lon ##' @return a dataframe with new site information on lat, lon and time_zone ##' @export ##' @author Abhinav Pandey diff --git a/base/db/man/get.new.site.Rd b/base/db/man/get.new.site.Rd index 11b2e2d2366..9030fcf237f 100644 --- a/base/db/man/get.new.site.Rd +++ b/base/db/man/get.new.site.Rd @@ -4,12 +4,13 @@ \alias{get.new.site} \title{Get New Site Info} \usage{ -get.new.site(site, con) +get.new.site(site, con, latlon = NULL) } \arguments{ \item{site}{a dataframe with site information on lat, lon and time_zone} -\item{con}{Database connection object} +\item{con}{Database connection object +latlon Global latlon abjoect which will store updated lat/lon} } \value{ a dataframe with new site information on lat, lon and time_zone diff --git a/modules/data.atmosphere/R/met.process.R b/modules/data.atmosphere/R/met.process.R index f32c06dd6a3..5225820d23f 100644 --- a/modules/data.atmosphere/R/met.process.R +++ b/modules/data.atmosphere/R/met.process.R @@ -160,7 +160,7 @@ met.process <- function(site, input_met, start_date, end_date, model, # setup site database number, lat, lon and name and copy for format.vars if new input latlon <- NULL - site.info <- PEcAn.DB::get.new.site(site, con, latlon) + site.info <- PEcAn.DB::get.new.site(site, con, latlon = latlon) # extract new.site and str_ns from site.info new.site <- site.info$new.site diff --git a/modules/data.land/R/ic_process.R b/modules/data.land/R/ic_process.R index 52fa252a773..63cd9a55a93 100644 --- a/modules/data.land/R/ic_process.R +++ b/modules/data.land/R/ic_process.R @@ -51,7 +51,7 @@ ic_process <- function(settings, input, dir, overwrite = FALSE, site = settings$ # setup site database number, lat, lon and name and copy for format.vars if new input latlon <- NULL - site.info <- PEcAn.DB::get.new.site(site, con, latlon) + site.info <- PEcAn.DB::get.new.site(site, con, latlon = latlon) # extract new.site and str_ns from site.info new.site <- site.info$new.site diff --git a/modules/data.land/R/soil_process.R b/modules/data.land/R/soil_process.R index e9ba0e87672..b31894baedf 100644 --- a/modules/data.land/R/soil_process.R +++ b/modules/data.land/R/soil_process.R @@ -31,7 +31,7 @@ soil_process <- function(settings, input, dbfiles, overwrite = FALSE,run.local=T # setup site database number, lat, lon and name and copy for format.vars if new input latlon <- NULL - site.info <- PEcAn.DB::get.new.site(site, con, latlon) + site.info <- PEcAn.DB::get.new.site(site, con, latlon = latlon) # extract new.site and str_ns from site.info new.site <- site.info$new.site