Question

我想在data.frame上执行一系列任务，这些任务将由用户通过actionButton加载。下面是一个示例，我想在用户选择的data.frame的第三列中删除带有NAs的行。我收到错误：

“警告：observeEventHandler中出错：找不到对象'df'

堆栈跟踪（最里面的第一个）：


65：observeEventHandler [（文件位置）.R＃56]“

为什么observeEvent不识别变量f？

Server.R

library(shiny)

 shinyServer <- function(input, output) {
    filedata <- reactive({
        infile <- input$Samples
        if (is.null(infile)) {
            # User has not uploaded a file yet
            return(NULL)
        }
        df <- read.table(infile$datapath,sep="\t",skip =0, header = TRUE,na.strings = "NA",stringsAsFactors=FALSE)
        })

    observeEvent(input$Click, {
            selectA <- df[complete.cases(f[,3]),]
    }
}

ui.R

library(shiny)

 shinyUI( <- fluidPage(
    tabPanel("Inputs",
         wellPanel(fileInput(inputId = "Samples", label = "Import File"), 
                   actionButton(inputId = "Click", label = "Samples")),
         h2('Results'),
         dataTableOutput("Results")))

Answer 1

也许我没有很好地阐明我的问题。这是我正在寻找的答案。

<强> Server.R

item[2]

R Shiny：对无功输入执行一系列功能

1 个答案: