whoops! didnt need to add those qc_hdetlim_and_uncert lines

Author: vlahm

src/lter/arctic/processing_kernels.R

@@ -344,9 +344,7 @@ process_1_10303 <- function(network, domain, prodname_ms, site_code,
     d <- d %>%
         full_join(var_names, by = 'Type') %>%
         select(site_code, datetime=Date, val=Value, Comments, var) %>%
-        mutate(ms_status = case_when(Comments == 'ISCO' ~ 0,
-                                     Comments == ' ' ~ 0,
-                                     TRUE ~ 1)) %>%
+        mutate(ms_status = ifelse(Flag == 1, 0, 1)) %>%
         select(-Comments) %>%
         mutate(date = str_split_fixed(datetime, ' ', n = Inf)[,1]) %>%
         # mutate(time = str_split_fixed(datetime, ' ', n = Inf)[,2]) %>%
@@ -456,7 +454,7 @@ process_1_10303 <- function(network, domain, prodname_ms, site_code,
                                              E_pheophy = 'mg/cm2',
                                              T_ECHL = 'mg/cm2',
                                              CH4 = 'mg/l'))
-    
+
     remove_1_vars <- d %>%
       group_by(site_code, var) %>%
       summarise(n = n()) %>%

src/lter/niwot/processing_kernels.R

@@ -207,8 +207,6 @@ process_1_213 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -312,8 +310,6 @@ process_1_103 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -422,8 +418,6 @@ process_1_107 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -529,8 +523,6 @@ process_1_108 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -635,8 +627,6 @@ process_1_109 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -745,8 +735,6 @@ process_1_110 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -850,8 +838,6 @@ process_1_112 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -955,8 +941,6 @@ process_1_113 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -1061,8 +1045,6 @@ process_1_9 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -1167,8 +1149,6 @@ process_1_160 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -1272,8 +1252,6 @@ process_1_162 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -1378,8 +1356,6 @@ process_1_163 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }
 
@@ -1489,8 +1465,6 @@ process_1_278 <- function(network, domain, prodname_ms, site_code,
                                              TIN = 'mg/l',
                                              H = 'mg/l'))
 
-    d <- qc_hdetlim_and_uncert(d, prodname_ms = prodname_ms)
-
     return(d)
 }