Style: Rename fix files according to geo level

NEWS.md

@@ -1,9 +1,10 @@
 # norgeo 2.4.2 (dev)
 - Get future data from API. Thank to @raniets for the request and proposed solution (#83)
 - Fix error on the date in `date_future()`
-- Fix geo codes manually when necessary (#84). This is done by sourcing
-  [geo-fix.R](https://github.com/helseprofil/config/tree/main/geo/geo-fix.R)
-  file. Use argument `fix = FALSE` to deactivate executing `geo-fix.R` file. 
+- Fix geo codes manually when necessary (#84). This is done by sourcing [config
+  files](https://github.com/helseprofil/config/tree/main/geo) according to their
+  granularity level. Use argument `fix = FALSE` to deactivate executing
+  these file.
 
 # norgeo 2.3.1
 - Replace `httr` package with `httr2` package.

R/track-change.R

@@ -7,7 +7,9 @@
 #'
 #' @inheritParams get_code
 #' @param fix Default is TRUE. Use external codes to fix geo changes manually.
-#'   The codes is sourced from \href{https://github.com/helseprofil/config/blob/main/geo/geo-fix.R}{geo-fix.R} file.
+#'   The codes is sourced from
+#'   \href{https://github.com/helseprofil/config/blob/main/geo/}{config} files
+#'   depending on the granularity levels.
 #' @return A dataset of class `data.table` consisting all older codes from
 #'   previous years until the selected year in `to` argument and what these
 #'   older codes were changed into. If the codes have not changed then the value
@@ -63,7 +65,7 @@ track_change <- function(type = c(
   if (!fix)
     return(DT)
 
-  DT <- alter_manual(DT)
+  DT <- alter_manual(DT, type)
 
   return(DT)
 }
@@ -160,9 +162,18 @@ grunnkrets_check <- function(type, to = NULL){
 
 ## Maually alter dataset especially when there are splitting codes ie. issue 84
 ## Codes should be in config repo file
-alter_manual <- function(DT){
+alter_manual <- function(DT, type){
 
-  http <- "https://raw.githubusercontent.com/helseprofil/config/main/geo/geo-fix.R"
+  baseURL <- "https://raw.githubusercontent.com/helseprofil/config/main/geo/"
+
+  fileName <- switch(type,
+                     fylke = "geo-fylke.R",
+                     kommune = "geo-kommune.R",
+                     bydel = "geo-bydel.R",
+                     grunnkrets = "geo-grunnnkrets.R"
+                     )
+
+  http <- paste0(baseURL, fileName)
 
   if (check_url(http)){
     message("Run source file ", http)