闪亮的反应检查是否选择了文件

Question

早上好。我想检查是否在 fileInput 中选择了文件，所以我不得不创建反应函数，但这不起作用。

ui.R

        fileInput("file_input","Choose your file in csv")             

        mainPanel("main panel",textOutput("choose"))

server.R

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")

}

 }

Answer 1

我不认为你可以在这样的函数中使用反应式，参见 here。你可以这样做：

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)

希望对您有所帮助！

闪亮的反应检查是否选择了文件

Shiny reactive check if file is choose

r

shiny

reactive