0

新しい RStudio 機能Shinyを使用して Web アプリケーションを作成しようとしています。ETS 状態空間モデルを試しています。モデル タイプを手動で指定したい ( server.R の太字のテキスト)。server.R で引用符内に入力を与えています。引用符内で iputs を指定すると、かかりません。手伝っていただけませんか...

ui.R

library(shiny)
shinyUI(pageWithSidebar(
  headerPanel( "Forecast", "Flowserve"),
  sidebarPanel(
    fileInput('file1', 'Select csv file',
              accept=c('text/csv')
              ),
    checkboxInput('header', 'Header', TRUE),
    radioButtons('sep', 'Separator',
                 c(Comma=',', Semicolon=';', Tab='\t')
                 ),
    tags$hr(),
    numericInput("startyear", "Start Year and Month",2010),
    sliderInput("month","",min=1, max=12,value=1, step=1, animate=T),

    tags$hr(),
    selectInput("error", "Error Type", list("Multiplicative"="M","Additive"="A")),
    selectInput("trend", "Trend Type", list("Multiplicative"="M","Additive"="A", "Null"="N")),
    selectInput("seasonal", "Seasonal Type", list("Multiplicative"="M","Additive"="A", "Null"="N")),
  submitButton("UPDATE")
  ),

  mainPanel(

    tabsetPanel(
    tabPanel("Data", tableOutput('contents')),
    tabPanel("Time Plot",  plotOutput('tsplot')),
    tabPanel("Forecast",  plotOutput('plotforecast'))
            )
    )
))

サーバー.R

library(shiny)
library(forecast)
shinyServer(function(input,output){

  data1 = reactive({
  inFile<-input$file1
  if(is.null(inFile))
    return(NULL)
  read.csv(inFile$datapath, header=input$header, sep=input$sep)
  })
output$plotforecast<-renderPlot(function(){
  datats<-ts(data1(), start=c(input$startyear,input$month), frequency=12)
  model<-ets(datats, model="input$error input$trend input$seasonal")
  fit1<-fitted(model)
  future1<-forecast(model, h=4, level=c(95,97.5))  
  p2<-plot.forecast(future1,shadecols=c("yellow","orange"), xlab=expression(bold(Year)), ylab=expression(bold(Demand)))
  print(p2)
  })
4

1 に答える 1

1

引数は 3 文字の文字列を想定しているmodel<-ets(datats, **model="input$error input$trend input$seasonal"**)ためmodel<-ets(datats, model=paste0(input$error, input$trend, input$seasonal))、で置き換える必要があります。文字ベクトルを連結します (詳細については、を参照してください)。modelpaste0?paste0

于 2013-08-27T07:07:49.507 に答える