R 检查文件是否已选择
早上好。我想检查文件是否在fileInput中是choose,所以我必须创建反应式函数,但这不起作用 用户界面 服务器.RR 检查文件是否已选择,r,shiny,reactive,R,Shiny,Reactive,早上好。我想检查文件是否在fileInput中是choose,所以我必须创建反应式函数,但这不起作用 用户界面 服务器.R library(shiny) isFileChoose<-function(){reactive({ if(is.null(input$file_input)) return (FALSE) else return (TRUE) }) } server <- function(input, output) {
library(shiny)
isFileChoose<-function(){reactive({
if(is.null(input$file_input))
return (FALSE)
else
return (TRUE)
}) }
server <- function(input, output) {
if(isFileChoose()==FALSE)
{
output$choose<-renderText("Not selected file")
}
}
库(闪亮)
isFileChoose我不认为您可以在这样的函数中使用反应式,请参见。您可以这样做:
library(shiny)
ui <- fluidPage(
fileInput("file_input","Choose your file in csv"),
textOutput("choose")
)
server <- function(input, output) {
output$choose <- reactive({
if(is.null(input$file_input))
{
"No input given yet."
}
else
{
"Now we can process the data!"
}
})
}
shinyApp(ui = ui, server = server)
库(闪亮)
用户界面
library(shiny)
ui <- fluidPage(
fileInput("file_input","Choose your file in csv"),
textOutput("choose")
)
server <- function(input, output) {
output$choose <- reactive({
if(is.null(input$file_input))
{
"No input given yet."
}
else
{
"Now we can process the data!"
}
})
}
shinyApp(ui = ui, server = server)