Konec projekta

[damjanm]

Mislim, da smo dokončali s projektom, lahko ga dodate med dokončanimi.

lp, Damjan

[jaanos]

Datoteka auth_public.r ima za končnico malo črko, tako da to popravita v server.R.

Še to bi opozoril: v zavihku Popularne zvrsti skozi zgodovino se vama izpiše napaka, ko zvrst še ni izbrana. Da se to ne bo zgodilo, pred izrisovanjem grafa preverita, ali sploh imata kak podatek:

validate(need(nrow(c) > 0, "Izberi zvrst!"))

Če torej pogoj ne bo izpolnjen, se bo namesto grafa izpisalo sporočilo.

Mimogrede, opažam, da štejeta tako, da naredita poizvedbo in nato na rezultatih uporabita table. Da se izogneta nepotrebnemu prenašanju rezultatov, lahko štetje opravi že baza. V ta namen uporabita funkciji group_by in summarise, npr.

  output$heh<-renderPlot({a <-filter(pes,genre==input$zvrst) %>% group_by(year) %>%
                            summarise(Freq = n()) %>% data.frame()
                          validate(need(nrow(a) > 0, "Izberi zvrst!"))
                          plot(x=a$year, y=a$Freq,xlab="leto",ylab="število pesmi")})

Tako se tudi izogneta temu, da bi prepisala R-jevo funkcijo c za stikanje vektorjev.

[damjanm]

V redu, sem popravil napake. Hvala za opombe! A moramo še kaj naresti? Ker je profesor predlagal, da pridemo na zagovor jutri zjutraj.

[jaanos]

Sedaj je v redu, tako da bom dodal povezavo. Če pa bosta še kaj spreminjala, pa mi javita, da jo posodobim.