Question

我正在使用可用的训练数据集运行回归模型，比如1000个观察值和5个独立变量。

现在我想针对测试数据集运行此模型。所以我试图在Shiny UI上手动从用户手动获取测试数据集。用户应该可以选择在测试数据集中选择观察次数，例如50次观察。一旦用户提供观察次数，用户应该能够查看50行和独立变量（或任何其他视图）的表。用户现在应该能够在Shiny UI上为每个独立变量在这50行中手动输入任意值。

目前，在运行以下UI代码后，我只能从用户那里获取每个变量的1个观察值。

代码：

library(shiny)



  ui<-shinyUI(fluidPage(
    titlePanel("Model"),


    sidebarLayout(
      sidebarPanel(
      sliderInput("Var1",label="Variable 1",min=100,max=1000,value=200,step=1),
      sliderInput("Var2",label="Variable 2",min=500,max=800,value=600,step=1),
      sliderInput("Var3",label="Variable 3",min=0,max=1,value=0.5,step=0.01),
      sliderInput("Var4",label="Variable 4",min=1,max=20,value=5,step=1),
      sliderInput("Var5",label="Variable 5",min=0,max=1,value=0.6,step=0.01),
      actionButton("Run_model", "Run model")
      ),

      mainPanel(

        tabsetPanel(
        tabPanel("model summary", verbatimTextOutput('summary'))
        )
      )
    )))


  server<- function(input,output,session){
    set.seed(1234)
    observe({
      # this is how you fetch the input variables from ui component

      Var1 <- as.integer(input$Var1)
      Var2 <- as.integer(input$Var2)
      Var3 <- as.numeric(input$Var3)
      Var4 <- as.integer(input$Var4)
      Var5 <- as.numeric(input$Var4)

      test <- cbind(Var1, Var2, Var3, Var4, Var5)
      test <- as.data.frame(test)

      ## Import dataset
      train <- data.frame(replicate(6,sample(1:100,1000,rep=TRUE)))
      names(train) <- c("Var1", "Var2", "Var3", "Var4", "Var5", "Var6")

      # Var6 is the dependent variable
      test$Var6 <- ""

      # Model action button
      observeEvent(input$Run_model, {
        model <- randomForest(Var6 ~ .,  data = train, ntree=500)
        pred <- predict(model, newdata = test)
        output$summary <- renderPrint(model)

      })
    })
  }

shinyApp(ui=ui, server=server)

Answer 1

您好，您想了解如何使用observe和reactive。简单来说 - 观察是当您想要修改某些UI对象或输入或通常在后台执行某些操作时。输出的计算最好放在反应式表达式中。

我修改了你的代码并且正在运行它。

library(shiny)
library(randomForest)


ui<-shinyUI(fluidPage(
  titlePanel("Model"),


  sidebarLayout(
    sidebarPanel(
      sliderInput("Var1",label="Variable 1",min=100,max=1000,value=200,step=1),
      sliderInput("Var2",label="Variable 2",min=500,max=800,value=600,step=1),
      sliderInput("Var3",label="Variable 3",min=0,max=1,value=0.5,step=0.01),
      sliderInput("Var4",label="Variable 4",min=1,max=20,value=5,step=1),
      sliderInput("Var5",label="Variable 5",min=0,max=1,value=0.6,step=0.01),
      actionButton("Run_model", "Run model")
    ),

    mainPanel(

      tabsetPanel(
        tabPanel("model summary", verbatimTextOutput('summary'))
      )
    )
  )))


server<- function(input,output,session){
  set.seed(1234)
  test <- reactive({
    # this is how you fetch the input variables from ui component

    Var1 <- as.integer(input$Var1)
    Var2 <- as.integer(input$Var2)
    Var3 <- as.numeric(input$Var3)
    Var4 <- as.integer(input$Var4)
    Var5 <- as.numeric(input$Var4)

    test <- cbind(Var1, Var2, Var3, Var4, Var5)
    test <- as.data.frame(test)


    # Var6 is the dependent variable
    test$Var6 <- ""
    test
    # Model action button
  })
  train <- reactive({
    ## Import dataset
    train <- data.frame(replicate(6,sample(1:100,1000,rep=TRUE)))
    names(train) <- c("Var1", "Var2", "Var3", "Var4", "Var5", "Var6")
    train
  })
  pred <- eventReactive(input$Run_model, {
    model <- randomForest(Var6 ~ .,  data = train(), ntree=500)
    predict(model, newdata = test())

  })
  output$summary <- renderText(pred())
}

shinyApp(ui=ui, server=server)

希望这有帮助！

根据R Shiny UI中用户的输入创建动态数据帧

1 个答案: