R glänzend - Arbeiten mit Histogrammparametern in reaktiver ({}) Einstellung

Question

Ich versuche, die X-Achsen-Grenzen meiner reaktiven Histogramme in einer glänzenden App als konstant zu setzen. Zum Beispiel möchte ich unabhängig von den Daten, die ich simuliere, immer 200 Unterbrechungen zwischen 0 und 3000 haben (alle Frequenzen, die über 3000 oder unter 0 verschüttet werden, sollten abgeschnitten werden).

Gibt es eine einfache Möglichkeit, dies zu tun?

Ich habe versucht, im Anschluss an die basiert auf einer Idee here:

histSims <- reactive({ 
     #return 
     hist(beanSims()[beanSims() > 1 & beanSims < 3000], 
      breaks = 200, 
      prob = T) 

gefolgt von

output$plot4 <- renderPlot({ 
     plot(histSims()     
    )) 
    }) 

Aber ich bekomme

Error: comparison (3) is possible only for atomic and list types 

Answer 1

Wie diesen Code:

histSims <- reactive({ 
      #return 
      beanSims_local<-beanSims() 
      beanSims_local<-beanSims_local[beanSims_local> 1 & beanSims_local< 3000] 
      hist(beanSims_local, 
       breaks = 200, 
       prob = T)