Shiny

[mperbil]

Pozdravljeni,
zanima me še, kako bi prevedel Shiny. Da bi si uporabnik izbral x in y v slovenščini. Torej da bi namesto penaltySave pisalo obranjene enajstmetrovke na primer. In da bi namesto drzava pisalo država.

Podobno težavo imam še pri zemljevidih. Zanima me kako bi popravil, da bi v legendi namesto cleansheet pisalo tekme brez prejetega zadetka.
Hvala za pomoč.
Maks Perbil

[timotejvesel]

1. problem:

ui <- fluidPage(
  inputPanel(
    selectInput('x', 'X', choices = c("Penali" = "penaltyFaced", "savedShotsFromOutsideTheBox", "savedShotsFromInsideTheBox"),
                selected = "savedShotsFromInsideTheBox"),
    selectInput('y', 'Y', choices = c("Obranjeni penali" = "penaltySave", "goalsConcededOutsideTheBox", "goalsConcededInsideTheBox"), 
                selected = "goalsConcededInsideTheBox"),
    selectInput('z', 'drzava', choices = unique(t2$drzava), selected = "Spain")
  ), 
  mainPanel(plotOutput("outplot")) 
)

Za ostale izbire podobno kot za prvo pri x in y.
Za država samo spremeniš tretji selectInput v selectInput('z', 'država', choices = unique(t2$drzava), selected = "Spain")

2.problem:
V tm_polygons dodaš title = "Tekme brez prejetega zadetka":

tm_shape(merge(zemljevid1,
               t1 %>% group_by(drzava) %>% summarise(cleanSheet=sum(cleanSheet)),
               by.x="SOVEREIGNT", by.y="drzava"), xlim=c(-15, 35), ylim=c(32, 72)) +
  tm_polygons("cleanSheet", title = "Tekme brez prejetega zadetka") + ggtitle("Tekme brez prejetega zadetka, glede na države")

[mperbil]

Hvala, problem je samo še pri drzavi, če pišem država, mi shiny-ja sploh ne odpre.

[timotejvesel]

Če odprem v binderju, vse dela normalno. Kakšno napako ti izpiše?

[mperbil]

Datoteke ui.R nisem imel shranjene v UTF-8. Sem popravil in deluje normalno. Hvala.