Add TIME_PERIOD_lab to globals

Author: antaldaniel

R/globals.R

@@ -15,8 +15,8 @@ utils::globalVariables(c(
   "iotables_label", # <employment_get>
   "values", # <employment_get>
   ".data", # <iotable_get>
-  "TIME_PERIOD_lab", # <iotables_download>
   "values_lab", # <iotables_download>
+  "TIME_PERIOD_lab", # <iotables_download>
   "time_lab", # <iotables_download>
   "TIME_PERIOD", # <iotables_download>
   "uk_col", # <order_iotable>

R/iotables_download.R

@@ -149,15 +149,15 @@ iotables_download <- function ( source = "naio_10_cp1700",
   if ( "stk_flow" %in% names ( downloaded ) ) {
     downloaded_nested <- nest (
       downloaded, 
-      data = -any_of(c( "geo", "geo_lab", "time", "time_lab", 
-                        "year", "unit", "unit_lab", "stk_flow", "stk_flow_lab"))
-      ) 
+      data = -any_of(c("geo", "geo_lab", "time", "time_lab", 
+                       "year", "unit", "unit_lab", "stk_flow", "stk_flow_lab"))
+    ) 
   } else { 
     downloaded_nested <- nest (
       downloaded, 
-      data = -any_of(c( "geo", "geo_lab", "time", "time_lab", 
-                        "year", "unit", "unit_lab"))
-      ) 
+      data = -any_of(c("geo", "geo_lab", "time", "time_lab", 
+                       "year", "unit", "unit_lab"))
+    ) 
   }
 
   if( !is.null(data_directory) ) {