Ошибка с датой: не удалось найти функцию - PullRequest
Новая
       11

Ошибка с датой: не удалось найти функцию

0 голосов
/ 12 октября 2019

Я разрабатываю экран ввода данных, где используется для ввода данных и создания таблицы данных. Мне также нужно создать столбец в таблице данных на основе пользовательского ввода. Для этого я использую функцию преобразования в таблице данных.

, при этом я получаю сообщение об ошибке «Не удалось найти функцию».

Я также прилагаю свой код для отладки 

mkifields<-c("Financial_Year","Quarter","Month", "DB_Date","Actual_Date")
ui<- fluidPage(
  titlePanel("Monthly Key Indicators"),
  sidebarLayout(
    sidebarPanel(width=3,
                 textInput("Financial_Year","Financial Year"),
                 selectInput("Quarter","Quarter",c("Q1","Q2","Q3","Q4")),
                 dateInput("Month","Month of Account", format="MM, yyyy"),
                 dateInput("DB_Date", "Detailed Booking Closing Date", format="dd-mm-yyyy"),
                 dateInput("Actual_Date","Actual date of uploading MKI",format="dd-mm-yyyy"),
                 actionButton("save6","Add",icon=icon("plus-square")),
                 actionButton("reset6","Delete",icon=icon("minus-square"))
    ),
    mainPanel(
      mainPanel(
        DT::dataTableOutput("mkiresponses", width = 600), tags$hr()
      ))))
server<- function(input,output,session){
  mkisaveData <- function(data) {
    mkidata <- data.frame(
      Financial_Year=data["Financial_Year"],
      Quarter=data["Quarter"],
      Month=as.Date(as.numeric(data[["Month"]]),"1970-01-01"),
      Detailed_Book_Date=as.Date(as.numeric(data[["DB_Date"]]),"1970-01-01"),
      Actual_Upload_Date=as.Date(as.numeric(data[["Actual_Date"]]),"1970-01-01")
    )
    if (exists("mkiresponses")) {
      mkiresponses <<- rbind(mkiresponses, mkidata)
    } else {
      mkiresponses <<- mkidata
    }
  }
  mkiformData <- reactive({
    mkidata <- sapply(mkifields, function(x) input[[x]])
    mkidata
    #print(data)
  })
  observeEvent(input$save6, {
    mkisaveData(mkiformData())
  })
  mkiloadData <- function() {
    if (exists("mkiresponses")) {
      mkiresponses
    }
  }
  output$mkiresponses <- DT::renderDataTable({
    input$save6
    input$reset6
    mki<-transform(mkiloadData(), Delay=as.numeric((mkiloadData()$Actual_Date)-(mkiloadData()$DB_Date)))
    datatable(mki,rownames=FALSE,options = list(ordering=FALSE, searching=FALSE,paging=FALSE,pageLength=FALSE,info=FALSE))
  })
}
shinyApp(ui,server)

Пожалуйста, помогите мне с решением ошибки

1 Ответ

0 голосов
/ 12 октября 2019

Сохраните функцию mkiloadData() в файле и используйте функцию источника (). 

server<- function(input,output,session){

  source("/path/to/function_file.R")

  mkisaveData <- function(data) {
    mkidata <- data.frame(
      Financial_Year=data["Financial_Year"],
      Quarter=data["Quarter"],
      Month=as.Date(as.numeric(data[["Month"]]),"1970-01-01"),
      Detailed_Book_Date=as.Date(as.numeric(data[["DB_Date"]]),"1970-01-01"),
      Actual_Upload_Date=as.Date(as.numeric(data[["Actual_Date"]]),"1970-01-01")
    )
    if (exists("mkiresponses")) {
      mkiresponses <<- rbind(mkiresponses, mkidata)
    } else {
      mkiresponses <<- mkidata
    }
  }
  mkiformData <- reactive({
    mkidata <- sapply(mkifields, function(x) input[[x]])
    mkidata
    #print(data)
  })
  observeEvent(input$save6, {
    mkisaveData(mkiformData())
  })

  output$mkiresponses <- DT::renderDataTable({
    input$save6
    input$reset6
    mki<-transform(mkiloadData(), Delay=as.numeric((mkiloadData()$Actual_Date)-(mkiloadData()$DB_Date)))
    DT::datatable(mki,rownames=FALSE,options = list(ordering=FALSE, searching=FALSE,paging=FALSE,pageLength=FALSE,info=FALSE))
  })
}
shinyApp(ui,server)
...