Commit a4cc0e96 authored by Vidali, Janoš's avatar Vidali, Janoš
Browse files

Odpravljene težave s kodiranjem znakov

parent 0fe2527f
......@@ -4,5 +4,7 @@ library(gsubfn)
library(tidyr)
library(shiny)
options(gsubfn.engine="R")
# Uvozimo funkcije za pobiranje in uvoz zemljevida.
source("lib/uvozi.zemljevid.r", encoding="UTF-8")
......@@ -35,7 +35,7 @@ uvozi.druzine <- function(obcine) {
locale=locale(encoding="Windows-1250"))
data$obcina <- data$obcina %>% strapplyc("^([^/]*)") %>% unlist() %>%
strapplyc("([^ ]+)") %>% sapply(paste, collapse=" ") %>% unlist()
data$obcina[data$obcina == "Sveti Jurij"] <- "Sveti Jurij ob Ščavnici"
data$obcina[data$obcina == "Sveti Jurij"] <- iconv("Sveti Jurij ob Ščavnici", to="UTF-8")
data <- data %>% gather(`1`:`4`, key="velikost.druzine", value="stevilo.druzin")
data$velikost.druzine <- parse_number(data$velikost.druzine)
data$obcina <- parse_factor(data$obcina, levels=obcine)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment