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")