Comment ajouter de mise à Jour (Actualisation) Bouton de l'application.R

Je vais vous montrer, comment réécrire votre code pour obtenir ce comportement de mise à jour, cependant, je voudrais aussi que vous sachiez que cette partie de code:

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

Est mauvais pour trois raisons: (1) l'objet amt n'existe pas, vous voulez probablement input$amt; (2) même si vous changez de amt pour input$amt le code ne fonctionne pas et vous obtiendrez une erreur; (3) maintenant, vous n'êtes pas à l'aide de SelectInput dans n'importe quel endroit dans votre application, donc il n'y a aucune raison pour que cette partie existe, cependant comme je ne sais pas quel est votre objectif et comment regarder la finale de l'app, je ne dis pas que c'est généralement mauvais.

Ok, alors maintenant, à propos de ce bouton mettre à jour. Nous allons nous concentrer sur ce code:

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

Ici vous instruire programme de (re)rendre le texte lors de l' input$fruitchoice (ou deuxième ligne) lorsque input$amt le changement, mais vous voulez (re)rendre le texte uniquement lorsque l'utilisateur clique sur le bouton, si vous avez besoin de deux choses: tout d'abord, assurez-vous que l'utilisateur a cliqué sur le bouton et de ne pas (re)rendre le texte lorsque l'un des input$ les changements. Cela va fonctionner:

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

Si je comprends Brillant correctement, isolate() permet de s'assurer que le texte n'est pas (re)rendu input$ les changements (mais il a l'interne les nouvelles valeurs) et req() permet de s'assurer que le input$Update il a cliqué; et lorsque vous cliquez à nouveau, Brillant recalcule [(re)rend] texte. Il recalcule, parce que nous n'avons pas utilisé isolate() sur input$Update Je pense que.

Il y a quelques choses qui cloche dans votre code. Je vais donner un peu d'explication pour chacun d'eux:

Vous sont en cours d'initialisation avec le réactif entrées. En utilisant renderText(input$...) vous créez une sortie de texte qui se met à jour automatiquement lors de votre entrée de mises à jour. Automatiquement est le problème ici, vous ne voulez pas que. Nous allons écrire une méthode alternative qui stocke les entrées dans une variable distincte qui nous permettent seulement d'être mis à jour lorsque le bouton est enfoncé. Nous initialisons la variable comme ceci:

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

EventReactive crée un réactif de variables qui peuvent être utilisées plus tard dans le code. Généralement parlant de ce que vous souhaitez utiliser dans ce genre de scénarios observeEvent. Vous pouvez le faire comme ceci:

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

Nous avons maintenant une liste de variables sous le nom "rv" et un observeEvent que les mises à jour de cette variable à chaque fois que le bouton enfoncé. Tout ce qui reste à faire est de créer l' renderText ce que vous pouvez faire comme ceci:

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