[英]Using R Shiny for Multiple Linear Regression (SelectInput --> multiple=TRUE)
[英]Multiple Linear regression using modules in R Shiny
我正在尝试使用 R Shiny 模块进行线性回归。 思路如下:
我尝试了下面的代码,但抛出了一个我无法修复的错误。
请帮忙。
代码
Linear.Regression.UI <- function(id, data.tibble){
ns <- NS(id)
tagList(
actionButton(ns("ClickforRegression"), label = "Click Here to Do Regression"),
selectInput(inputId = ns("Regression.Y.Input"),
label = "Select Regression Dependent Variable",
choices = names(data.tibble),
),
selectInput(inputId = ns("Regression.X.Input"),
label = "Select Regression Independent Variables",
choices= names(data.tibble),
multiple=TRUE),
verbatimTextOutput("Linear.Model.Output.Summary")
)#end of tagList
}#end of Linear.Regression.UI
Linear.Regression.Server <- function(id){
moduleServer(id, function(input, output, session){
ns <- session$ns
observeEvent(eventExpr = input$ClickforRegression,
linear.model <- lm(reformulate(input$Regression.X.Input, input$Regression.Y.Input), data = data.tibble)
)#end of observeEvent
output$Linear.Model.Output.Summary <- renderPrint(summary(linear.model()))
})#end of moduleServer
}
Regression.App <- function(data.tibble){
ui <- fluidPage(
Linear.Regression.UI("Data", data.tibble = iris)
)
server <- function(input, output, session)
{
Linear.Regression.Server("Data")
}
shinyApp(ui, server)
}
Regression.App()
错误
Listening on http://127.0.0.1:3883
Warning: Error in is.data.frame: object 'data.tibble' not found
[No stack trace available]
该代码还需要ns
修复,但主要修复是将数据传递到服务器:
Linear.Regression.UI <- function(id, data.tibble){
ns <- NS(id)
tagList(
actionButton(ns("ClickforRegression"), label = "Click Here to Do Regression"),
selectInput(inputId = ns("Regression.Y.Input"),
label = "Select Regression Dependent Variable",
choices = names(data.tibble),
),
selectInput(inputId = ns("Regression.X.Input"),
label = "Select Regression Independent Variables",
choices= names(data.tibble),
multiple=TRUE),
verbatimTextOutput(ns("Linear.Model.Output.Summary"))
)#end of tagList
}#end of Linear.Regression.UI
Linear.Regression.Server <- function(id, data.tibble ){
moduleServer(id, function(input, output, session){
ns <- session$ns
linear.model<- reactiveVal()
observeEvent(eventExpr = input$ClickforRegression,{ message("sdf");
linear.model(lm(reformulate(input$Regression.X.Input, input$Regression.Y.Input), data = data.tibble))}
)#end of observeEvent
output$Linear.Model.Output.Summary <- renderPrint(summary(linear.model()))
})#end of moduleServer
}
Regression.App <- function(data.tibble){
ui <- fluidPage(
Linear.Regression.UI("Data", data.tibble = iris)
)
server <- function(input, output, session)
{
Linear.Regression.Server("Data", data.tibble = iris)
}
shinyApp(ui, server)
}
Regression.App()
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.