R et Brillant: Pass entrées de curseurs de réactif fonction pour calculer la sortie

J'ai 6 paramètres que l'utilisateur peut modifier les valeurs. Ce sont nos 6 entrées.
Je veux créer une valeur de sortie qui prend les 6 entrées et calcule la valeur de l'intérêt d'un certain nombre d'équations liées à une fonction. Voici ce que j'ai dans mon INTERFACE...

library(shiny)

# Define UI for slider demo application
shinyUI(pageWithSidebar(

#  Application title
headerPanel("# Header Title Goes Here"),

# Sidebar with sliders that demonstrate various available options
sidebarPanel(
# Simple integer interval
sliderInput("u1", "Name:", 
            min=0, max=10000, value=10000),
#There are 6 slider inputs...

    ),

# Show a table summarizing the values entered
mainPanel(
 tableOutput("values"),

 uiOutput("focal"))
 )
)  

Voici ce que j'ai dans mon serveur.R...

library(shiny)

shinyServer(function(input, output) {

# Reactive expression to compose a data frame containing all of the values
sliderValues <- reactive({

# Compose data frame
data.frame(
  Name = # Names of my 6 parameters,

  Value = # inputs based on my 6 values by `input$value`,

  stringsAsFactors=FALSE)
})

f <- renderText({function(r1, r2, r3, d1, d2, u1) #these are my 6 values
{ #List of equations that compute f based on the 6 values
}
})


# Show the values using an HTML table
output$values <- renderTable({
sliderValues()
})

# Show the final calculated value 
output$focal <- renderText({
f
})
})

Je reçois... Erreur: argument 1(type 'fermeture') ne peuvent pas être traitées par 'chat'
et de nombreuses autres erreurs. Je n'ai juste pas comment transférer de la mise à jour des entrées de l'utilisateur de l'6 paramètres de ma fonction et de cracher que la fonction de retour dans la zone de sortie sur la surface Brillante de la page html.

Toute aide serait grandement appréciée!!

Merci!

ReactiveUI est une Chose Différente™
pourquoi est-ce qu'un nom de marque de la phrase?

OriginalL'auteur Chloe | 2013-05-31

Leave a Reply

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *