finished shinynarzedzia with decyzja.R