Combining function output into data frame with different column names

Question

I am trying to figure out how to get a single data frame (or a tibble) with distinct column names from this function. This code prints three separate chunks with the same Date and same column names. Column values are however different.

hello <- function(x){
  fx <- Quandl(x)

  fx <- fx %>%
    select(Date, Open, Close) %>%
    mutate(new_col = `Open` - `Close`) %>%
    select(Date, new_col)
  print(kable(head(fx), format = "rst"))
}

lapply(c(EUR, USD, RUB), fx)

I am doing it the long way via replicating the code for every input (EUR, USD, RUB). Then merging them with the function below, then converting to a tibble to get rid of the observation numbers on the left before printing via kable.

Reduce(function(x, y) merge(x, y, all = TRUE), list(EUR, USD, RUB))

Just want to see how it is possible to do easier with one function.

Thank you!

EDIT 1:

Thank you for the answers and suggestions on improving the question!

So the reproducible code looks like this:

Wheat<-"CFTC/001602_FO_ALL"
Corn<-"CFTC/002602_F_ALL"
Beans<-"CFTC/005602_F_ALL"

funds<-function(x){

  cftc<-Quandl(x)

cftc<-cftc%>%
  select(Date,`Money Manager Longs`,`Money Manager Shorts`)%>%
  mutate(Funds_Net = `Money Manager Longs`-`Money Manager Shorts`)%>%
  select(Date,Funds_Net)
print(kable(head(cftc),format = "rst"))
}

lapply(c(Wheat,Corn,Beans),funds)

The output I have is this: enter image description here

What I want as output is this: enter image description here

Thank you!