From 4ca69a8813b1ad6bee9358dc4a995b2b2ccba0ed Mon Sep 17 00:00:00 2001 From: Valentin Date: Thu, 3 Mar 2022 11:27:12 -0500 Subject: [PATCH] fix temp var --- R/spm_aggregate-helpers.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/spm_aggregate-helpers.R b/R/spm_aggregate-helpers.R index e45bef3d..6e0aa904 100644 --- a/R/spm_aggregate-helpers.R +++ b/R/spm_aggregate-helpers.R @@ -58,14 +58,14 @@ spm_aggregate_routine <- function(dataset_data, boundaries, group_by, level, if (level == "patch"){ dataset_data_tmp <- dataset_data_tmp %>% - dplyr::mutate(temp = as.numeric(temp)) %>% + dplyr::mutate(temp = as.numeric(.data$temp)) %>% tidyr::complete(.data[[time_col]], .data$patch_id, fill = list(temp = as.numeric(fill_value))) } else if (level == "boundary"){ dataset_data_tmp <- dataset_data_tmp %>% - dplyr::mutate(temp = as.numeric(temp)) %>% + dplyr::mutate(temp = as.numeric(.data$temp)) %>% tidyr::complete(.data[[time_col]], .data[[boundary]], fill = list(temp = as.numeric(fill_value)))