Shiny

[ZilavecM14]

Zdravo. Žal ne razumem zakaj mi ne dela shiny, tako da bi prosila če mi lahko pogledate? LP

[jaanos]

Najprej svetujem, da vse ukaze source premakneš iz server.R v shiny.r (pred ukazom runApp) in tega uporabljaš za zaganjanje aplikacije (potem jo lahko vključiš v poročilo tako, da se ne bo celoten program še enkrat zagnal - v server.R pa lahko potem pobrišeš stavek if). Glede na to, da v analiza.r uporabljaš funkcijo gam, bo treba v libraries.r dodati vrstico library(mgcv). Tja lahko premakneš tudi vrstico library(shiny), da ti bo Shiny deloval tudi znotraj poročila.

Iz tvoje kode ni najbolj jasno, kakšen graf hočeš prikazati - sklepam sicer, da želiš razdeliti po regijah. Potem bi šlo takole:

    stipendijeleto <- filter(data, leto == input$izberi, kratko == input$izb,
                             regija != "SLOVENIJA")

    ggplot()+
      geom_bar(data=stipendijeleto,aes(x = regija, y = stevilo), 
               stat="identity",fill="deeppink3",size=10)+
      coord_flip()