Ako pridať Aktualizovať (Refresh) Tlačidlo aplikácie.R

Ukážem vám, ako na prepísanie kódu na získanie tejto aktualizácie správanie, avšak by som chcel tiež získať viete, že táto časť kódu:

SelectInput <- eventReactive (input$Update , {
   runif(input$fruitchoice,amt)
  })

Je zle z troch dôvodov: (1) objektu amt nie existuje, budete pravdepodobne chcieť input$amt; (2) aj keď ste zmeniť amt na input$amt kód nebude fungovať a dostanete chybové; (3) teraz vás nie sú pomocou SelectInput v ľubovoľné miesto v aplikácii, takže nie je dôvod pre túto časť, ak existujú, ale ako, ja neviem, čo je váš cieľ a ako bude vyzerať finálna aplikácia, nehovorím, že to je všeobecne zlé.

Ok, tak teraz o tejto aktualizácii nájdete tlačidlo. Budeme sústrediť na tento kód:

output$fruit = renderText(input$fruitchoice)
   output$amt = renderText(input$amt)

Tu môžete poučiť program, aby sa (znovu)vykreslenie textu pri input$fruitchoice alebo (v druhom riadku), keď input$amt zmena, ale chcete, aby sa (znovu)vykreslenie textu iba vtedy, keď používateľ klikne na tlačidlo, takže budete potrebovať dve veci - po prvé, uistite sa, že používateľ klikne na tlačidlo, a nie je (re)vykresliť text, keď jeden z input$ zmeny. To bude fungovať:

output$fruit = renderText({
    req(input$Update)
    isolate(input$fruitchoice)
    })
  output$amt = renderText({
    req(input$Update)
    isolate(input$amt)
    })

Ak chápem, Lesklé správne, isolate() zaisťuje, že text nie je (re)poskytovanie keď input$ zmeny (však to má vnútorne nové hodnoty) a req() zabezpečuje, že input$Update kliklo, a keď kliknete znova, Lesklé recomputes [(re)poskytuje] text. To recomputes, pretože sme nemali používať isolate() na input$Update Myslím.

Tam je pár vecí, ktoré nie je v poriadku vo vašom kóde. Dám trochu vysvetlenie pre každú z nich:

Môžete sa inicializuje s reaktívnou vstupy. Pomocou renderText(input$...) vytvoríte textový výstup, ktorý automaticky aktualizuje, keď váš vstup aktualizácie. Automaticky je problém tu, nechcete, aby. Budeme písať alternatívna metóda, ktorá ukladá vstupy v samostatnom premennej, že sme iba umožniť, aby sa aktualizujú, keď je tlačidlo stlačené. Sme inicializovať, že premenná, tak ako:

rv <- reactiveValues(fruit = "Apples",
                       amt = 20)

EventReactive vytvára reaktívne premennej, ktoré môžu byť neskôr použité v kóde. Vo všeobecnosti to, čo chcete použiť v týchto druh scenárov je observeEvent. Môžete to urobiť tak, ako je tento:

observeEvent (input$Update , {
    rv$fruit <- input$fruitchoice
    rv$amt <- input$amt
  })

Teraz máme zoznam premenných pod názvom "rv" a observeEvent že aktualizácie tejto premennej vždy tlačidlo dostane stlačené. Všetko, čo je vľavo urobiť, je vytvoriť renderText čo môžete urobiť tak ako:

output$fruit <- renderText(rv$fruit)
output$amt <- renderText(rv$amt)