嗨，我正在建立一個R代碼，如下所示，以擁有一個閃亮的應用程式
。ui = fluidPage()
shinyjs::useShinyjs()，
shinyjs::inlineCSS(appCSS) ,
shinyFeedback::useShinyFeedback(),
titlePanel("預測混凝土強度"。 ""）,
numericInput("CEM"。 "水泥（kg）","")，
numericInput("Water"。 "水（kg）","")，
numericInput("PFA"。 "粉煤灰（公斤）",""),
actionButton("submit", "get the results"。 class = "btn-primary"）,
textOutput("class"),
textOutput("class_prob")
)
而服務器的代碼是
server < - function(input, 輸出,會話） {
inputsValues = reactiveValues(inputs = NULL)
##要禁用動作按鈕，直到所有的輸入都給出。
觀察({)
if（input$CEM! ="" && input$Water! = "" &&/span> input$PFA! =""){!
shinyjs::enable("submit")
} else {>
shinyjs::disable("submit")
}
})
# 在輸入錯誤的情況下放一些反饋。
observeEvent(input$submit,{)
cem_con<- (as. numeric(input$CEM) > 163 & as. numeric(input$CEM) < 3307)
shinyFeedback::feedbackDanger("CEM",/span> ! cem_con , " abc"）
wat_con<- (as. numeric(input$Water) > 131 & as. numeric(input$Water) < 1640)
shinyFeedback::feedbackDanger("Water",! wat_con , "abc"）
pfa_con<-(as. numeric(input$PFA) > 55 & as. numeric(input$PFA) < 1617)
shinyFeedback::feedbackDanger("PFA",/span> ! pfa_con, "abc"）
req(cem_con,wat_con)
inputsValues$inputs< -c（"CEM"=input$CEM。 "Water"=input$Water。 "PFA"=input$PFA）
inputsValues$inputs<-as. numeric（inputsValues$inputs）。
})
output$class_prob<- renderText（inputsValues$inputs）
output$class < - renderText(sum(inputsValues$inputs))
}。
而當我用
運行該應用程式時shinyApp(ui, server)
其停止并給出以下錯誤
監聽http://126.0.0.1:3739 警告。在啟用中出錯：找不到函式 "啟用"。 [No stack trace available]uj5u.com熱心網友回復：
為了檢查缺失的值，你可以使用is.na()，如下所示。
observe({)
if (is. na(input$CEM) | is。 na(input$Water) | is. na(input$PFA) )
shinyjs::disable("submit")
} else {>
shinyjs::enable("submit")
}
})
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/314507.html
標籤：