Consider the following structure:
tmp_data <- structure(
list(
currency = c("EUR", "USD"),
funding = c(50, 700)),
class = c("tbl_df", "tbl", "data.frame"),
row.names = c(NA, -2L))
This I'm trying to convert to EUR across the board like so:
tmp_data %>%
dplyr::mutate(
funding = dplyr::case_when(
currency != "EUR" ~ yahoofinancer::currency_converter(
from = currency, to = "EUR",
start = lubridate::today())$adj_close * funding,
TRUE ~ funding))
While this works when explicitly changing from = currency to from = "USD", I cannot get this to work using the currency variable na matter what quo, enquo, {{ or other tidyeval constructs come to mind (and google).
The error mostly remains
Failed to evaluate the right-hand side of formula 1.
How do I get this to work? Thanks for any pointers...
Add rowwise()
library(tidyverse)
library(yahoofinancer)
temp_data %>%
rowwise() %>%
mutate(funding = case_when(
currency != "EUR" ~ pull(currency_converter(from = currency, to = "EUR", start = today()), adj_close) * funding,
.default = funding
))
# A tibble: 2 × 2
# Rowwise:
currency funding
<chr> <dbl>
1 EUR 50
2 USD 645.