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

  1. 25

    Je pense qu'il y a un couple de confusion ici. Tout d'abord, lorsque vous définissez f dans server.R, je pense que vous voulez juste de définir une fonction de la façon dont vous le feriez normalement. Puis, lorsque vous ne renderText(), vous pouvez appeler la fonction pour obtenir votre valeur.

    La façon dont vous l'avez maintenant, vous êtes à la création d'une fonction à l'intérieur de renderText(), vous êtes alors en essayant d'obtenir renderText à afficher, sans lui donner de vos arguments. C'est pourquoi vous obtenez le message d'erreur, parce que renderText passe son premier argument pour cat, qui ne sait pas quoi faire avec la fonction. Il peut, toutefois, la poignée de la sortie d'une fonction.

    De toute façon, les ouvrages suivants, pour moi. Je n'ai fait que deux curseurs, mais vous pouvez probablement s'étendre vous-même.

    de l'interface utilisateur.R:

    #ui.R
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),
    sliderInput("r1", "r1:", 
                min=0, max=10000, value=10000)


  ),

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

    uiOutput("focal"))
)
)

    serveur.R

    #server.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 = c("u1", "r1"),

        Value = c(input$u1,
                  input$r1),

        stringsAsFactors=FALSE)
  })

  f <- function(u1, r1) {
    u1 + r1
  }


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

  # Show the final calculated value 
  output$focal <- renderText(
    {f(input$u1, input$r1)}
  )
})
    AH LA VACHE!! CELA FONCTIONNE TOUT À FAIT!! MERCI BEAUCOUP!!! J'AI TRAVAILLÉ SUR CE TOUS LES JOURS!!! MERCI BEAUCOUP À VOUS!!!!! AVOIR UNE BELLE JOURNÉE!
    Pas de problème, la bienvenue!

    OriginalL'auteur alexwhan