shiny aplikacija

[stifler9]

Napisal sem server in ui, vendar ko poženem shinyAppDir("shiny", options=list(width="100%", height=500)): mi odpre parazno okno z okenci "Stevilo naselij"....

shinyServer( server <- function(input, output) {

output$tocke <- renderPlot({
  ggplot(podatki %>% filter(Draws >= input$izenaceni), aes(x = Team, y = Points)) + 
    scale_fill_continuous(low = "#69b8f6", high = "#142d45") + 
    geom_bar(stat ="identity") + 
    theme(axis.text.x = element_text(angle = 90, vjust = 0.5)) +
    ggtitle("Pozicije ekip skozi leto")})

} )

shinyUI( ui <- fluidPage(

titlePanel("Analiza pozicij ekip skozi leto"),
tabsetPanel(
  tabPanel("Točke",
           sliderInput(inputId="izenaceni",label="Draws",min=0,max=14,value=3,sep=""),
           plotOutput("tocke"))
)

) )

[stifler9]

Sem posodobil SSH ključ in naložil spremembe. Ko poženem samo del za shiny aplikacijo, mi jo zdaj normalno odpre, vendar mi ne skreira pdf dokumenta vendar nevem zakaj. Ali mi lahko samo to prosim pogledate, drugače se bom pa nekako znašel. Hvala

[jaanos]

Programov server.r in ui.r ne vključuj v poročilo - to naredi že ukaz shinyAppDir. Glede na to, da v analiza.r samo poženeš Shiny aplikacijo, tudi tega programa ne vključuj v poročilo. Izgleda, da želiš uporabiti Shiny aplikacijo v mapi analiza, tako da to podaj kot prvi argument k ukazu shinyAppDir (tega seveda postavi tja, kamor želiš, da se ti prikaže aplikacija). Poročilo potem prevedi kot HTML (Shiny ne deluje znotraj PDF) - ko te vpraša, ali želiš dokument vedno pognati kot Shiny, izberi Yes, Always.

Opozoril bi te še, da v prevedenem poročilu ne prikaže grafov, saj imaš presledke in šumnike v imenih blokov kode, kjer jih rišeš. Tako namesto točke in gol razlika raje uporabi npr. tocke_in_gol_razlika. Pazi še na napise pod slikami - nekateri so ostali iz vzorca. Bloke kode, kjer imaš vse zakomentirano, raje pobriši.

[stifler9]

Hvala, sem popravil. Ali mi lahko pomagate samo še pri zadnji stvari, ki mi ni jasna. Ko sem spisal shiny sem naredil 2 okenci, Prvo mi dela normalno, drugo mi pa samo odpre in pokaže črto, da izberem input, vendar mi ne nariše grafa.

[jaanos]

Trenutno ti poročila ne prevede, ker imaš dva bloka kode z imenom analiza, prav tako pa v uvoz.r kličeš funkcijo ggplot preden naložiš knjižnico ggplot2 (prav tako grafi še niso popravljeni - ali je zadnja verzija naložena na GitHubu)?

Kar se pa tiče Shinyja, pa se mora ime objekta, ki ga narediš v server.r, ujemati s tistim, ki ga izrišeš v ui.r. V tvojem primeru je grafu ime goli, zato to ime uporabi tudi pri plotOutput. Pazi še na to, kako se nanašaš na ime stolpca v funkciji filter:

filter(`Win/Lose` >= input$zmage)

[stifler9]

Hvala lepa, sem vse popravil, kar ste mi napisali. Ko poženem na roke uvoze, knjižice in nato ShinyAppDir mi deluje normalno, kot bi moglo. V poročilo sem vključil klic Shiny aplikacije kot vsi ostali vendar mi javi v tej vrstici napako( pri {r shiny}). Ali vas lahko samo še prosim, da mi pomagate pri prevedbi poročila? Hvala.

[jaanos]

Ali te je vprašalo, če želiš dokument prevesti kot Shiny? Če te ni, v glavo dokumenta (pred drugo vrstico ---) dodaj vrstico

runtime: shiny

(pazi, da na začetku nimaš nobenega presledka). Ko shraniš, bi se moral gumb Knit HTML spremeniti v Run Document - ko ga klikneš, ti potem poročilo požene kot Shiny.

Kakšno napako pa sicer dobiš? Pri meni namreč deluje, a mi grafov ne prikazuje (glej zgornji komentar glede presledkov in šumnikov v imenih blokov kode).