Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
Analiza podatkov s programom R
2020-21
APPR 2020-21
Commits
a4cc0e96
Commit
a4cc0e96
authored
5 years ago
by
Vidali, Janoš
Browse files
Options
Download
Email Patches
Plain Diff
Odpravljene težave s kodiranjem znakov
parent
0fe2527f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
1 deletion
+3
-1
lib/libraries.r
lib/libraries.r
+2
-0
uvoz/uvoz.r
uvoz/uvoz.r
+1
-1
No files found.
lib/libraries.r
View file @
a4cc0e96
...
...
@@ -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"
)
This diff is collapsed.
Click to expand it.
uvoz/uvoz.r
View file @
a4cc0e96
...
...
@@ -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
)
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment