Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Translation of difftime() is inverted on Snowflake, MSSQL, Redshift #1525

Closed
fh-afrachioni opened this issue Jul 19, 2024 · 1 comment · Fixed by #1532
Closed

Translation of difftime() is inverted on Snowflake, MSSQL, Redshift #1525

fh-afrachioni opened this issue Jul 19, 2024 · 1 comment · Fixed by #1532

Comments

@fh-afrachioni
Copy link
Contributor

On several backends, difftime(a, b) is translated to DATEDIFF(a, b), when it should be DATEDIFF(b, a). Counterintuitive but well documented:

Notably, Spark appears to be implemented correctly, as it has arguments in the opposite order. Other backends seem to make use of the - operator correctly.

Example:

date_today <- Sys.Date()
date_tomorrow <- date_today + 1

test_date_diff <- function(df) {
  df %>% 
    transmute(
      # bonus issue: we need as.Date() to get a date column, even when we already have a Date
      date_today = as.Date(!!date_today),
      date_tomorrow = as.Date(!!date_tomorrow),
      minus_result = date_tomorrow - date_today,
      difftime_result = difftime(date_tomorrow, date_today)
    )
}

data.frame(i = 0) %>% 
  dbplyr::tbl_lazy(dbplyr::simulate_snowflake()) %>%
  test_date_diff()

leads to

SELECT
  `date_today`,
  `date_tomorrow`,
  `date_tomorrow` - `date_today` AS `minus_result`,
  DATEDIFF(DAY, `date_tomorrow`, `date_today`) AS `difftime_result`
FROM (
  SELECT
    `df`.*,
    CAST('2024-07-19' AS DATE) AS `date_today`,
    CAST('2024-07-20' AS DATE) AS `date_tomorrow`
  FROM `df`
) AS `q01`

And on a real live Snowflake backend,

actual_snowflake_table %>% 
  head(1) %>% 
  test_date_diff()

leads to

# Source:   SQL [1 x 4]
# Database: Snowflake 8.26.0[anthony.frachioni@Snowflake/]
   date_today date_tomorrow minus_result difftime_result
   <date>     <date>               <dbl>           <dbl>
 1 2024-07-19 2024-07-20               1              -1

cc @fh-mthomson

@edward-burn
Copy link
Contributor

Just to note I also find this inconsistency on postgres

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(dbplyr)
#> 
#> Attaching package: 'dbplyr'
#> The following objects are masked from 'package:dplyr':
#> 
#>     ident, sql

test_data <- data.frame(
  person = 1L,
  date_1 = as.Date("1980-01-01"),
  date_2 = as.Date("2010-01-01")
)

con <- DBI::dbConnect(RPostgres::Postgres(),
                      dbname = Sys.getenv("CDM5_POSTGRESQL_DBNAME"),
                      host = Sys.getenv("CDM5_POSTGRESQL_HOST"),
                      user = Sys.getenv("CDM5_POSTGRESQL_USER"),
                      password = Sys.getenv("CDM5_POSTGRESQL_PASSWORD"))

test_data |> 
  mutate(days = difftime(date_1, date_2))
#>   person     date_1     date_2        days
#> 1      1 1980-01-01 2010-01-01 -10958 days

db_test_data <- copy_to(con, 
                        test_data, 
                        overwrite = TRUE)
db_test_data |> 
  mutate(days = difftime(date_1, date_2))
#> # Source:   SQL [1 x 4]
#> # Database: postgres  [[email protected]:5432/vocabularyv5]
#>   person date_1     date_2      days
#>    <int> <date>     <date>     <int>
#> 1      1 1980-01-01 2010-01-01 10958

db_test_data |> 
  mutate(days = difftime(date_1, date_2)) |> 
  dplyr::show_query()
#> <SQL>
#> SELECT
#>   "test_data".*,
#>   (CAST("date_2" AS DATE) - CAST("date_1" AS DATE)) AS "days"
#> FROM "test_data"

Created on 2024-08-12 with reprex v2.1.0

edward-burn added a commit to oxford-pharmacoepi/dbplyr that referenced this issue Aug 12, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging a pull request may close this issue.

2 participants