Error with apply function

I have a dtl table and a lookup table (GLMap)

dtl:

DEAL_TYPE   DN_DIRECTION    key COMPANY_CODE    GLAccount
POWER   SALE        1   AFFL_CO 1702
POWER   PURCHASE    2   AFFL_CO 3702
MISC    SALE        3   AFFL_CO 5717
MISC    PURCHASE    4   AFFL_CO 5718
POWER   SALE        5   AFFL_CO 1702
POWER   SALE        6   MAIN    
POWER   PURCHASE    7   MAIN    
MISC    SALE        8   MAIN    
MISC    PURCHASE    9   MAIN    
POWER   SALE        10  MAIN

Lookup Table (GLAcctMap):

DealType    DR_CR   GLAccount   Customer
POWER   P   3702    AFFL_CO
POWER   S   1702    AFFL_CO
MISC    P   5718    AFFL_CO
MISC    S   5717    AFFL_CO
POWER   P   6702    STD
POWER   S   6712    STD
MISC    P   5312    STD
MISC    S   5313    STD

Expected Output: DEAL_TYPE DN_DIRECTION key COMPANY_CODE GLAccount GLACCT POWER S 1 AFFL_CO 1702 1702 POWER P 2 AFFL_CO 3702 3702 MISC S 3 AFFL_CO 5717 5717 MISC P 4 AFFL_CO 5718 5718 POWER S 5 AFFL_CO 1702 1702 POWER S 6 MAIN 6712 POWER P 7 MAIN 6702 MISC S 8 MAIN 5313 MISC P 9 MAIN 5312 POWER S 10 MAIN 6712

I would like to create an Output table which is a copy of the dtl table but with an extra GLACCT column added based on a match on multiple columns from the lookup table.

Logic is: if GLAccount column is null then go get the matching Account from the lookup table (GLacctMap), else put the GLAccount number in the new column.

Here’s a function I tried:

load_details <- function(dld) {

phys_fin = 0

 findgl <- function(x){ 
    if( is.na(x$GLAccount)  ) {   
             GLACCT <- GLacctMap[ match( paste(x$DEAL_TYPE, x$DN_DIRECTION, sep=":"), 
                                         paste( GLacctMap$DealType,GLacctMap$DR_CR,sep=":")), "GLAccount"]    
         } else {

              GLACCT <- x$GLAccount
         }    
   GLACCT 
    }

dld$GLACCT <- apply(currdld, 1, function(x) findgl )

}

PEDLD <- load_details(currdld)

I get the following Error: IBCO Spotfire Statistics Services returned an error: ‘Error in as.data.frame.default(passed.args[[i]], stringsAsFactors = s : cannot coerce class ‘”function”‘ into a data.frame’.

Related Posts:

  1. R Hex to RGB converter
  2. Error in file(file, “rt”) : cannot open the connection [duplicate]
  3. Error in : object of type ‘closure’ is not subsettable
  4. Could not find function “%<>%” with dplyr loaded
  5. Interpreting “condition has length > 1” warning from `if` function
  6. How to coerce a list object to type ‘double’
  7. R Error in x$ed : $ operator is invalid for atomic vectors
  8. $ operator is invalid for atomic vectors for dataframe R
  9. Plotting with ggplot2: “Error: Discrete value supplied to continuous scale” on categorical y-axis
  10. ggplot2 error : Discrete value supplied to continuous scale
  11. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  12. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  13. How to open CSV file in R when R says “no such file or directory”?
  14. Error: could not find function “%>%”
  15. R programming: How do I get Euler’s number?
  16. ‘x’ and ‘y’ lengths differ ERROR when plotting
  17. What are the “standard unambiguous date” formats for string-to-date conversion in R?
  18. ‘x’ and ‘y’ lengths differ ERROR when plotting
  19. What are the “standard unambiguous date” formats for string-to-date conversion in R?
  20. Difference between paste() and paste0()
  21. Remove duplicated rows
  22. Error in ggplot.data.frame : Mapping should be created with aes or aes_string
  23. Error in Confusion Matrix : the data and reference factors must have the same number of levels
  24. Error in plot.window(…) : need finite ‘xlim’ values
  25. Error in colMeans(x, na.rm = TRUE) : ‘x’ must be numeric, What should I do in this situation?
  26. Editing legend (text) labels in ggplot
  27. case_when in mutate pipe
  28. Principal Components Analysis:Error in colMeans(x, na.rm = TRUE) : ‘x’ must be numeric
  29. dim(X) must have a positive length when applying function in data frame
  30. Extract year from date
  31. Persistent invalid graphics state error when using ggplot2
  32. incorrect number of dimensions and incorrect number of subscripts in array
  33. What does %*% mean in R [duplicate]
  34. Why am I getting “algorithm did not converge” and “fitted prob numerically 0 or 1” warnings with glm?
  35. How to debug “contrasts can be applied only to factors with 2 or more levels” error?
  36. Error in lm.fit(x, y, offset = offset, singular.ok = singular.ok, …) : NA/NaN/Inf in ‘y’, tried every possible way
  37. R t-test Grouping factor must have exactly 2 levels error
  38. What does c do in R?
  39. Opposite of %in%: exclude rows with values specified in a vector
  40. Understanding the order() function
  41. Using Caret Package but Getting Error in library(e1071)
  42. Subscript out of bounds – general definition and solution?
  43. Error in lis[[i]] : attempt to select less than one element
  44. Plot a line graph, error in xy.coords(x, y, xlabel, ylabel, log) : ‘x’ and ‘y’ lengths differ
  45. How to compute weighted mean in R?
  46. Error: unexpected symbol/input/string constant/numeric constant/SPECIAL in my code
  47. How to count the number of observations in R like Stata command count
  48. Remove all of x axis labels in ggplot
  49. Sum rows in data.frame or matrix
  50. Error in table “all arguments must have the same length”
  51. Rename multiple columns by names
  52. What is the difference between rm() and rm(list=ls())?
  53. Remove rows with all or some NAs (missing values) in data.frame
  54. How to not run an example using roxygen2?
  55. How do you create vectors with specific intervals in R?
  56. Linear model function lm() error: NA/NaN/Inf in foreign function call (arg 1)
  57. Increase number of axis ticks
  58. Converting data frame column from character to numeric
  59. How to assign colors to categorical variables in ggplot2 that have stable mapping?
  60. Singularity in backsolve at level 0, block 1 in LME model
  61. “installation of package ‘FILE_PATH’ had non-zero exit status” in R
  62. Is there a dictionary functionality in R
  63. Plot two graphs in same plot in R
  64. reshape2 melt warning message
  65. ggplot2 manually specifying colour with geom_line
  66. dcast warning: ‘Aggregation function missing: defaulting to length’
  67. remove all variables except functions
  68. How to update a package in R?
  69. Run R script from command line
  70. Non-conformable arrays error in code
  71. What causes an R script to get Killed?
  72. What’s the difference between facet_wrap() and facet_grid() in ggplot2?
  73. ggplot2, facet_grid, free scales?
  74. dplyr mutate with conditional values
  75. How do I install an R package from source?
  76. How can I convert Json to data frame in R
  77. lmer error: grouping factor must be < number of observations
  78. R Error (from NA’s to 0): duplicate subscripts for column in Data Frame
  79. incorrect number of subscripts on matrix in R
  80. Error in rbind(deparse.level, …) : numbers of columns of arguments do not match R
  81. Creating box plot on exercise
  82. What is the meaning of the dollar sign “$” in R function()?
  83. How to sort a data frame by alphabetic order of a character variable in R?
  84. Error in na.fail.default(as.ts(x)) : missing values in object in time series forecasting
  85. Argument “No” is missing, with no default
  86. R apply function with multiple parameters
  87. Geometric Mean: is there a built-in?
  88. Error in na.fail.default: missing values in object – but no missing values
  89. Error: Invalid number of ‘breaks’ in R
  90. Convert the values in a column into row names in an existing data frame
  91. Deleting rows that are duplicated in one column based on the conditions of another column
  92. Replace all 0 values to NA
  93. The difference between bracket [ ] and double bracket [[ ]] for accessing the elements of a list or dataframe
  94. Merge error : negative length vectors are not allowed
  95. Error Error in storage.mode(x) <- "double" : 'list' object cannot be coerced to type 'double'
  96. why nrow(dataframe) and length(dataframe) in r give different results?
  97. Meaning of objects being masked by the global environment
  98. Subset and ggplot2
  99. Create a matrix of scatterplots (pairs() equivalent) in ggplot2
  100. cbind warnings : row names were found from a short variable and have been discarded

Leave a Comment