title: How can I graph in Shiny with the data provided by the user?
body: <p>I am using <code>numericImput</code> to get the data introduced by the user.</p>
  <p>I am trying to graph the balistic curve of the proyectil motion described by the input of the user (The user gives a value for intial velocity, angle measure, time of flight and k constant), but I can't solve the mistake :(</p>
  <p>Any help would be thanked! :D</p>
  <p>Here is my code</p>
  <pre><code>library(shiny)
  ui &lt;- fluidPage(
  
  titlePanel(&quot;Movimiento de Projectiles&quot;),
  
  sidebarLayout(
  sidebarPanel(
    width = 2,
    
    numericInput(inputId = &quot;v&quot;,
                 label = &quot;Velocidad&quot;,
                 value = &quot; &quot;),
    
    numericInput(inputId = &quot;th&quot;,
                 label = &quot;Angulo&quot;,
                 value = &quot; &quot;),
    
    numericInput(inputId = &quot;tf&quot;,
                 label = &quot;Tiempo&quot;,
                 value = &quot; &quot;),
    
    numericInput(inputId = &quot;k&quot;,
                 label = &quot;Constante k&quot;,
                 value = &quot; &quot;)
    ),
  
    mainPanel(
    plotOutput(&quot;posicion&quot;)
      )
     )
    )
  
    server &lt;- function(input, output) {
  
    v &lt;- renderPrint({ input$v })
  
    th &lt;- (renderPrint({ input$th}))
  
    t&lt;-renderPrint({ input$tf })
  
  
    k&lt;-renderPrint({ input$k })
  
  
  
    output$posicion &lt;- renderPlot({
  
    # Para x
    vx&lt;-function(v,th){
    input$v*cos(input$th*((2*pi)/360))
    }
  
    x&lt;-function(t){
    vx*input$t
    }
  
  
    ## Para y
    vy&lt;-function(v,th){
    input$v*sin(input$th*((2*pi)/360))
    }
    y&lt;-function(t){
    (vy*input$t)-(0.5*g*t*t)
    }
    # Dibujamos el grafico de X v.s. Y
    plot(x)
    })
    }
  
    shinyApp(ui = ui, server = server)
  </code></pre>