Как наблюдать входной сигнал цели от selectinput в блестящей модели поезда - PullRequest
Новая
       36

Как наблюдать входной сигнал цели от selectinput в блестящей модели поезда

1 голос
/ 14 марта 2019

Я пытаюсь создать реактивное блестящее приложение, в котором я позволяю конечному пользователю загружать CSV-файл и обучать мою модель загруженному файлу.Загруженный файл может содержать несколько целевых переменных, и я надеялся, что смогу предоставить пользователям параметр selectinput, чтобы модель работала для выбранных целевых переменных.До сих пор я был в состоянии предоставить возможность загрузить файл и прочитать данные для запуска модели.Однако я не смог понять, как я могу назначить целевую переменную на основе пользовательского ввода.Вот как далеко я нахожусь с точки зрения кода

UI-LOGIC 

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
    menuItem("Visit-us", icon = icon("send",lib='glyphicon'), 
             href = "abc.com"),
    fileInput("datafile", "Choose CSV File",
              accept = c(
                "text/csv",
                "text/comma-separated-values,text/plain",
                ".csv")),
    tags$hr(),
    checkboxInput('header', 'Header', TRUE),
    radioButtons('sep', 'Separator',
                 c(Comma=',',
                   Semicolon=';',
                   Tab='\t'),
                 ','),
    selectInput(
      "select",
      label = h3("Select Channel"),
      choices = c("Users", "New_Users"),
      selectize = TRUE,
      selected = "All")
 )
)

SERVER LOGIC 

server <- function(input, output, session) {
  getData <- reactive({
    inFile <- input$datafile
    if (is.null(input$datafile))
      return(NULL)
    data2<-read.csv(inFile$datapath, header=input$header, sep=input$sep, 
                    quote=input$quote)
    #save(data2, file = "dataread.RData")
    return(data2)
  })

  adstock <- function(x, rate=0){
    return(as.numeric(stats::filter(x=x, filter=rate, method="recursive")))
  }

  model <- reactive({
    raw_data <- getData()
  observeEvent(input$select,{
  target <- input$select
})
    ts <- ts(raw_data$target, frequency = 12, start=c(2016,07))
    decomposition <- decompose(ts)


    mod <- nls(target~b0+b1*adstock(variable, rate),data = raw_data,
               start=c(b0=1, b1=1, rate=0))
})
}

Целевые пользователи в модели должны исходить из вводав пользовательском интерфейсе.

Пожалуйста, помогите, как решить эту проблему.

Заранее большое спасибо !!

...