エラー：オブジェクトの入力 "Rシャイニーアプリでは見られない

Question

私ui.Rこの

library(shiny) 
library(Sim.DiffProc) 

shinyUI(fluidPage(
     titlePanel("Sliders"), 

     sliderInput(inputId = "theta",label="Theta:", 
        min=1, max=50, value=5), 

     plotOutput("SDE") 
    )) 

を検索し、server.Rは、私は常に次を取得し、次の

library(shiny) 
library(Sim.DiffProc) 


shinyServer(function(input, output) 
{ 
    result<-reactive({ 
    f<-expression(x*(1-(x/1000))^input$theta*0.5) 
    g<-expression(x*(1-(x/1000))^input$theta*0.2) 
    snssde1d(drift=f,diffusion=g, M=5, x0=100) 
    }) 

    output$SDE<-renderPlot({ 
    plot(result(), plot.type="single", col="lightgrey")}) 

}) 

ですエラー：オブジェクト '入力'が見つかりません 私は問題が何であるか把握できません。なぜ私のシータに反応しないのですか？ ありがとうございました！

Answer 1

だから、あなたの問題の問題はRshinyではないと言いました。それはexpressionの使用法です。あなたはここで何をしている

は、あなたがする必要がどのような値の5

、

基本的に入力$シータを置き換えることなく、同じ表現を出力

expression(x*(1-(x/1000))^input$theta*0.2) 

ある

f <- as.expression(bquote(x*(1-(x/1000))^.(input$theta)*0.2)) 

#bquote evaluates the expression enclosed in .() 

を下回っています

この出力は

expression(x * (1 - (x/1000))^5 * 0.2) 

私はそれがあなたの問題を解決したことを願っています。