Malline:Budjettirajapinta

Tämä koodi tuottaa vain tapahtumalistauksen ilman yhteenvetoja.

Voit rajata tarkastelusi yhteen työpakettiin tai vuoteen. Tarkasteltava työpaketti: Kaikki työpaketit Tarkasteltava vuosi: Kaikki vuodet + Näytä koodi- Piilota koodi out <- budjettilaskenta(page = sivu, rahoittaja = rahoittaja, projekti = projekti, työpaketti = työpaketti, työpaketti.add = työpaketti.add, rahoittaja.add = rahoittaja.add) if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]} if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]} if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]} if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]} print(xtable(out), type = 'html')

Tämä tuottaa halutut yhteenvedot mutta ei tapahtumalistausta.

Voit valita näytettävät yksityiskohdat ja myös rajata tarkastelusi yhteen työpakettiin tai vuoteen. Mitkä jaottelut haluat näyttää yhteenvedossa?: Projekti Työpaketti Vuosi Laitos Rahoittaja Kustannuslaji Tarkasteltavat työpaketit: Tarkasteltava vuosi: Kaikki vuodet Voit testata budjettia tällä tilapäisellä lisätapahtumalla. Työpaketti: Rahoittaja: THL STM Kustannuslaji: Palkka VT3 Palkka VT4 Palkka VT5 Palkka VT6 Palkka VT7 Palkka VT8 Palkka VT9 Palkka VT10 Ostopalvelu Matka Tarvike Tulot Budjettiin lisättävä summa: Kuvaus: + Näytä koodi- Piilota koodi out <- budjettilaskenta(page = sivu, rahoittaja = rahoittaja, projekti = projekti, työpaketti = työpaketti, työpaketti.add = työpaketti.add, rahoittaja.add = rahoittaja.add, kustannuslaji.add = kustannuslaji.add, määrä.add = määrä.add, kuvaus.add = kuvaus.add) if(työpakettirajaus != "Kaikki") {out <- out[out$Työpaketti == työpakettirajaus, ]} if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]} out <- out[out$Työpaketti %in% työpakettirajaus, ] if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]} print(xtable(budjettiyhteenveto(out, jaottelu)), type='html') print(xtable(budjettiyhteenveto(out[out$tulomeno == "Tulot", ], jaottelu)), type='html') print(xtable(budjettiyhteenveto(out[out$tulomeno == "Menot", ], jaottelu)), type='html') out <- budjettiyhteenveto(out, c(3,5)) out <- out[out$tulomeno == "Tulot", ] print(xtable(out), type='html')

Käyttöesimerkki

{{budjettirajapinta
| työpaketit         = 'TP1';TP1;'TP2';TP2;'TP3';TP3;'TP4';TP4;'TP5';TP5
| vuodet             = '2012';2012;'2013';2013;'2014;2014
| sivu               = Op_fi2682
| rahoittaja         = STM
| projekti           = Tekaisu
| työpaketti         = TP1
| työpaketti.add     = TP1
| rahoittaja.add     = STM
| työpaketit_default = 'TP1';'TP2';'TP3';'TP5'
| rahoittaja_default = STM
}}