In eal024/navR: navR

knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(lubridate)
library(navR)
library(kableExtra)

## Forutsetninger. Skal inngå i budsjett-objektet og de ulike anslagene.

# Grunnbeløp
g_ifjor    <- 100853
g_iar      <- 104716
g_neste_ar <- 108287

# KPI

# Herfra peker hoveddokumentet på dokumentet som lager anslag for hver post.

Arbeids- og velferdsdirektoratets tilrådning

# Hovedtabell 1: liste_hoved_1 gjør input til tabell 1. 
liste_hoved_1 <- list( post70 = list( post = bud_post1$giKapittelpost(), regnskap_ifjor = regnskap_ifjor, vedtatt_iar = vedtatt_iar, forrige = forrige_iar, nyttt = nytt_iar),
                       post70 = list( post = bud_post1$giKapittelpost(), regnskap_ifjor = NULL          , vedtatt_iar = NULL, forrige = forrige_iar, nyttt = nytt_iar) # ,
                       #post70 = list( post = bud_post1$giKapittelpost(), regnskap_ifjor = NULL          , vedtatt_iar = NULL, forrige = forrige_iar, nyttt = nytt_iar)
                      ) 

# Omgjøre listen til en tabell.
tabell_hoved1 <- alt_creat2(liste_hoved_1,  navn_forste = "Post")

# Manuell utregning av "Endring fra forrige" og fra "vedtatt"  
`Endring fra forrige` <- as.numeric( str_remove_all(tabell_hoved1[[ncol(tabell_hoved1)]], pattern =  " ") ) - as.numeric( str_remove_all(tabell_hoved1[[(ncol(tabell_hoved1)-1)]], pattern =  " ") )
`Endring fra vedtatt` <- as.numeric( str_remove_all(tabell_hoved1[[ncol(tabell_hoved1)]], pattern =  " ") ) - as.numeric( str_remove_all(tabell_hoved1[[(ncol(tabell_hoved1)-2)]], pattern =  " ") )

tabell_hoved1 <- tabell_hoved1 %>%  
  mutate( `Endring fra forrige` =  `Endring fra forrige`,
          `Endring fra vedtatt` = `Endring fra vedtatt`
          ) %>% 
  mutate(across( .cols = everything(), .fns = function(x) ifelse( is.na(x), " ", x ) ))



## Latex-formatering av data.frame
navR::latex_tabell(tabell_hoved1, size = 8)

\hspace{4cm}

# Liste anslag 2022
liste_hoved2 <- list( post70  =  list(  ar = (bud_post1$giPeriode() %m+% years(1)) %>% year() ,regnskap = regnskap_ifjor, forrige = forrige_neste_ar, nytt = nytt_neste_ar),
                      post70  =  list(  ar = (bud_post1$giPeriode() %m+% years(1)) %>% year() ,regnskap = NULL          , forrige = forrige_neste_ar, nytt = nytt_neste_ar),
                      post70  =  list(  ar = (bud_post1$giPeriode() %m+% years(1)) %>% year() ,regnskap = NULL          , forrige = forrige_neste_ar, nytt = nytt_neste_ar)
            )

# Hovedtabellen

tabell_hoved2 <- navR::alt_creat2( liste_hoved2, navn_forste = "År" )


# Endring fra forrige
`Endring fra forrige 2022` <- as.numeric( str_remove_all(tabell_hoved2[[ncol(tabell_hoved2)]], pattern =  " ") ) - as.numeric( str_remove_all(tabell_hoved2[[(ncol(tabell_hoved2)-1)]], pattern =  " ") )


# Hovedtabell med endring
tabell_hoved2 <- tabell_hoved2 %>% mutate( `Endring fra forrige 2022` = `Endring fra forrige 2022`) %>% select(-2)


# Latex
navR::latex_tabell( tabell_hoved2, size = 8)