Fuzzyjoin在两列上的left_join

Question

我有两个要加入Shiny应用程序的数据集

两者都有两列-用户选择的日期和字母数字字符串

例如，在两个数据框中列的格式相同，即：

EndoNum   EndoDate         PathNum   PathDate        
F321321  13/12/2001       F321321  21/12/2001

我想将数据集一与数据集二连接起来，但是日期在1-8天之间

我尝试过fuzzyjoin：

        EndoDate<-colnames(RV$data[as.numeric(input$endotable_columns_selected[1])])
        EndoNum<-colnames(RV$data[as.numeric(input$endotable_columns_selected[2])])
        PathDate<-colnames(RV2$data[as.numeric(input$endotable_columns_selected[1])])
        PathNum<-colnames(RV2$data[as.numeric(input$endotable_columns_selected[2])])


  difference_left_join(RV2$data,
                          RV$data,
                          by=setNames(nm=c(EndoNum,EndoDate),c(PathNum,PathDate)),
                          max_dist = 8,
                          distance_col = "Days"
     )

但出现错误：Error in v1 - v2 : non-numeric argument to binary operator

如何加入。我必须使用Fuzzyjoin吗？