Helper functions

Author: DanOlner

functions.R

@@ -6,9 +6,14 @@ library(httr)
 library(jsonlite)
 library(xml2)
 
-#Helper functions
+#HELPER FUNCTIONS
+#reduce need to type glimpse every time...
 g <- function(x) glimpse(x)
+v <- function(x) View(x)
 
+#Wrap grepl to do tidier version of this when e.g. filtering for terms
+#gq = "grepl quick!"
+qg <- function(...) grepl(..., ignore.case = T)
 
 #OSM postcode fetch
 get_fulladdress_from_osm <- function(business_name, place_name, quotebusiness = F) {

testcode/tests_n_checks_companieshousedata.R

@@ -178,7 +178,24 @@ both <- both %>% filter(SIC_5DIGIT_CODE!="99999")
 #Let's make map of manufacturing
 if (!dir.exists('local/qgis')) dir.create('local/qgis')
 
-st_write('local/')
+st_write(
+  both %>% filter(SIC_SECTION_NAME == 'Manufacturing') %>% select(localauthority_name,Employees_thisyear),
+  'local/qgis/livelist_manuf_section.geojson')
+
+st_write(
+  both %>% filter(qg('information',SIC_SECTION_NAME)) %>% select(localauthority_name,Employees_thisyear),
+  'local/qgis/livelist_ICT_section.geojson')
+
+st_write(
+  both %>% filter(qg('agri',SIC_SECTION_NAME)) %>% select(localauthority_name,Employees_thisyear),
+  'local/qgis/livelist_ICT_section.geojson')
+
+
+
+
+
+
+