library(rio)
library(here)
library(dplyr)
baza$datum <- as.character(baza$Time) # pretvaram eksel datum u karakter
baza$Time <- as.Date(baza$datum) # nazad u datum
baza$Time <- format(as.Date(baza$Time), "%Y-%m") # datum pisem u obliku gggg-mm
baza[is.na(baza)] <- "" # brisem NA u koloni za vrednosti
write.csv(baza, "salmonellosis_2024.csv")