À l'aide d'un réactif expression dans une instruction if dans brillant

Je suis en train d'écrire une brillante application à laquelle la sortie doit dépendre de la valeur d'une variable qui est calculée en réaction à l'expression de shiny. Au lieu de reproduire le réel app je crois que j'ai recréé mon problème avec la suite de la simple application:

ui.R file:

   library(shiny)

   shinyUI(pageWithSidebar(

   headerPanel("Illustrating problem"),

   sidebarPanel(

   numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step        =5)

  ),

  mainPanel(

    h4('You entered'),

    verbatimTextOutput("oid1"),

    verbatimTextOutput("odic")

  )
))

server.R file


library(shiny)

shinyServer(

  function(input, output) {

    output$oid1 <- renderPrint({input$id1})

    x<-reactive({5*input$id1})

    if (x()>50) output$oid2<-renderPrint({"You entered a number greater than 10"})

    else output$oid2<-renderPrint({"You entered a number less than or equal to 
10"})

  }
)

Si je le lance comme ça alors j'obtiens l'erreur:
Erreur dans .getReactiveEnvironment()$currentContext() :`

Opération n'est pas autorisée sans un actif réactif contexte. (Vous avez essayé
de faire quelque chose qui ne peut être fait à partir de l'intérieur d'un réactif
l'expression ou de l'observateur.)

Si je change l'instruction if: if (x>50) ... alors j'obtiens l'erreur:

D'erreur en x > 50 : comparaison (6) est possible uniquement pour les atomique et de la liste des types de

Lorsque je modifie l'instruction if: if (reactive({(x>50)})) ... puis j'ai le message d'erreur:

Erreur if (réactif({ : l'argument n'est pas interprétable comme logique

Je serais grandement reconnaissant de toute aide

InformationsquelleAutor MSR | 2016-01-15

r shiny

12

Quelques problèmes. Le premier et le plus gros problème est que vous ne semblez pas comprendre comment la réactivité des œuvres. Le message d'erreur indique "opération non autorisée sans un actif réactif contexte", et c'est le problème - vous avez accès x() à l'intérieur du serveur principal de la fonction du corps, mais pas à l'intérieur d'un réactif contexte. Tout render* fonction est un réactif contexte par exemple. Donc, pour résoudre ce problème, vous simple pour se déplacer si l'instruction à l'intérieur de la renderPrint.

L'autre problème, c'est que votre sortie de l'ids ne correspondent pas (verbatimTextOutput("odic") vs output$oid2).

Si vous ne comprenez pas la réactivité, je vous suggère fortement de prendre une demi-heure à mieux le comprendre. Ce tutoriel a une section sur la réactivité qui peut être utile, ou vous pouvez relire l'officiel brillant tutoriel par RStudio.

Voici le code pour vos immobilisations de l'application (j'ai supprimé un tas d'inutiles éléments de l'INTERFACE utilisateur)
```
library(shiny)
ui <- fluidPage(
  numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step=5),
  verbatimTextOutput("oid1"),
  verbatimTextOutput("oid2")

)
server <- function(input, output, session) {
  output$oid1 <- renderPrint({input$id1})

  x<-reactive({5*input$id1})

  output$oid2<-renderPrint({
    if (x()>50) {
      "You entered a number greater than 10"
    } else {
      "You entered a number less than or equal to 10"
    }
  })
}
shinyApp(ui = ui, server = server)
```
InformationsquelleAutor DeanAttali
5

Remarque que Brillant fonctionne selon un modèle dirigé par événement - que faire à peu près toutes graphiquement orientées de l'Isu (et aujourd'hui c'est la grande majorité). Il n'est pas un nouveau concept, a été autour depuis les années 80 au moins, mais c'est plus compliqué qu'une programmation de quelque chose qui s'en suit un seul organigramme - il ne prendra un certain temps pour s'y habituer.

De toute façon, en Brillant reactive et output etobserve consolidés doivent être au top niveau, je ne pense pas qu'il y a des exceptions à cela.

Vous voulez probablement quelque chose comme ceci:
```
library(shiny)

u <- shinyUI(pageWithSidebar(

  headerPanel("Illustrating problem"),

  sidebarPanel(
    numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step =5)
  ),

  mainPanel(

    h4('You entered'),
    verbatimTextOutput("oid1"),
    verbatimTextOutput("oid2")

  )
))

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

    output$oid1 <- renderPrint({input$id1})

    x<-reactive({5*input$id1})

    output$oid2<-renderPrint({
      if (x()>50){
         "You entered a number greater than 10"
      } else {
         "You entered a number less than or equal to 10"
      }
    }
  )
}
)
shinyApp(ui = u, server = s)
```
Rendement:
- Vous obtenez un point pour l'effort de captures d'écran... BTW, je ne pense pas que c'est encouragé, mais vous pouvez certainement mettre la sortie des énoncés à l'intérieur d'un observateur/réactif. Mais il ne faut pas.
- Merci pour vos explications. Mon problème est que dans mon application j'ai tout un tas de commandes à l'intérieur du if else, et il n'est pas juste un seul renderPrint de commande. Toutes les idées sur la façon de le faire?
- Il n'est pas utile pour moi non plus, imaginez que vous souhaitez définir un réactif variable seulement si un autre réactif variable a une valeur particulière, alors vous ne pouvez pas utiliser de rendu de l'environnement et doit faire le si le serveur principal corps
- stackoverflow.com/questions/37710358/.... C'est l'une des réponses à ma question
InformationsquelleAutor Mike Wise

Vous devez vous connecter pour publier un commentaire.