ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Add copy buttons to all
 blocks\n(function() {\n function addCopyButtons() {\n document.querySelectorAll('pre code').forEach(function(codeBlock) {\n if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;\n codeBlock.parentElement.setAttribute('data-copy-added', 'true');\n \n var btn = document.createElement('button');\n btn.textContent = 'Copy';\n btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';\n btn.onmouseover = function() { this.style.opacity = '1'; };\n btn.onmouseout = function() { this.style.opacity = '0.7'; };\n btn.onclick = function() {\n navigator.clipboard.writeText(codeBlock.textContent).then(function() {\n btn.textContent = 'Copied!';\n setTimeout(function() { btn.textContent = 'Copy'; }, 1500);\n });\n };\n codeBlock.parentElement.style.position = 'relative';\n codeBlock.parentElement.appendChild(btn);\n });\n }\n \n addCopyButtons();\n \n // Re-run on dynamic content\n var observer = new MutationObserver(addCopyButtons);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Add Copy Buttons to Code Blocks");
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Force GitHub README to respect dark mode\n(function() {\n var style = document.createElement('style');\n style.textContent = '\n .markdown-body {\n color-scheme: dark light;\n }\n .markdown-body pre { background: #161b22 !important; }\n .markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }\n .markdown-body table th, .markdown-body table td { border-color: #30363d !important; }\n .markdown-body img { background: #0d1117; }\n .markdown-body blockquote { border-left-color: #8b949e; }\n .markdown-body hr { border-color: #30363d; }\n ';\n document.head.appendChild(style);\n})();", "GitHub Dark Mode README Fix"); } } catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); } })(); (function(){ try { var __m = "*"; var __re = new RegExp('^' + ".*" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Highlight search terms from Google/DuckDuckGo/Bing referrer\n(function() {\n var ref = document.referrer;\n var terms = [];\n \n if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {\n var url = new URL(ref);\n var q = url.searchParams.get('q') || url.searchParams.get('p');\n if (q) {\n terms = q.split(/\\s+/).filter(function(t) { return t.length > 2; });\n }\n }\n \n if (terms.length === 0) return;\n \n var style = document.createElement('style');\n style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';\n document.head.appendChild(style);\n \n function highlight(node) {\n if (node.nodeType === 3) { // text node\n var text = node.textContent;\n var found = false;\n terms.forEach(function(term) {\n var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\\]\\\\]/g, '\\\\') + ')', 'gi');\n if (regex.test(text)) {\n found = true;\n var frag = document.createDocumentFragment();\n var parts = text.split(regex);\n parts.forEach(function(part, i) {\n if (i % 2 === 0) {\n frag.appendChild(document.createTextNode(part));\n } else {\n var span = document.createElement('span');\n span.className = 'userscript-highlight';\n span.textContent = part;\n frag.appendChild(span);\n }\n });\n node.parentNode.replaceChild(frag, node);\n }\n });\n } else if (node.nodeType === 1 && node.childNodes) { // element\n var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];\n if (!skipTags.includes(node.tagName)) {\n Array.from(node.childNodes).forEach(highlight);\n }\n }\n }\n \n highlight(document.body);\n \n // Re-highlight on dynamic content\n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1 || node.nodeType === 3) highlight(node);\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Highlight Search Terms"); } } catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); } })(); (function(){ try { var __m = "*"; var __re = new RegExp('^' + ".*" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Strip utm_, fbclid, gclid, etc. from all links on page\n(function() {\n var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',\n 'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',\n 'ref', 'ref_src', 'source', 'medium', 'campaign'];\n \n function cleanUrl(url) {\n try {\n var u = new URL(url, window.location.origin);\n var changed = false;\n trackingParams.forEach(function(p) {\n if (u.searchParams.has(p)) {\n u.searchParams.delete(p);\n changed = true;\n }\n });\n return changed ? u.toString() : url;\n } catch (e) {\n return url;\n }\n }\n \n function cleanLinks() {\n document.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n \n cleanLinks();\n \n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1) {\n if (node.tagName === 'A') cleanLinks();\n node.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Remove Tracking Parameters from Links"); } } catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); } })(); (function(){ try { var __m = "youtube.com"; var __re = new RegExp('^' + "youtube\\.com" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Auto-enable theater mode on YouTube\n(function() {\n function tryTheater() {\n var btn = document.querySelector('button[aria-label=\"Theater mode\"], ytd-player #player button[title=\"Theater mode\"]');\n if (btn && !btn.classList.contains('activated')) {\n btn.click();\n }\n }\n \n // Try immediately\n tryTheater();\n \n // Try after navigation (SPA)\n var lastUrl = location.href;\n setInterval(function() {\n if (location.href !== lastUrl) {\n lastUrl = location.href;\n setTimeout(tryTheater, 500);\n }\n }, 1000);\n \n // Also try on player load\n var observer = new MutationObserver(tryTheater);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "YouTube Theater Mode Default"); } } catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); } })(); (function(){ try { var __m = "*"; var __re = new RegExp('^' + ".*" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Remove or un-stick sticky/fixed headers that block content\n(function() {\n function unstick() {\n document.querySelectorAll('header, nav, [role=\"banner\"], .header, .navbar, .sticky, .fixed-top, [style*=\"position: fixed\"], [style*=\"position:sticky\"]').forEach(function(el) {\n if (el.style.position === 'fixed' || el.style.position === 'sticky' || \n getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {\n el.style.position = 'static';\n el.style.top = 'auto';\n el.style.zIndex = 'auto';\n }\n });\n }\n \n unstick();\n \n var observer = new MutationObserver(unstick);\n observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });\n})();", "Kill Sticky Headers"); } } catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); } })(); (function(){ try { var __m = "*"; var __re = new RegExp('^' + ".*" + '
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Universal Dark Mode - works on any site\n(function() {\n var enabled = true;\n \n function applyDarkMode() {\n if (!enabled) return;\n \n // Create style element if it doesn't exist\n var style = document.getElementById('universal-dark-mode-style');\n if (!style) {\n style = document.createElement('style');\n style.id = 'universal-dark-mode-style';\n document.head.appendChild(style);\n }\n \n // Dark mode CSS - inverts colors but preserves images/video\n style.textContent = '\n /* Invert everything except media */\n html {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #1a1a2e !important;\n }\n \n /* Restore images, videos, iframes, canvas */\n img, video, iframe, canvas, svg, picture, [style*=\"background-image\"] {\n filter: invert(1) hue-rotate(180deg) !important;\n }\n \n /* Preserve specific elements that should not be inverted */\n .no-dark-mode, .no-dark-mode *,\n [data-theme=\"light\"], [data-theme=\"light\"],\n .ace_editor, .ace_editor *,\n .CodeMirror, .CodeMirror *,\n .monaco-editor, .monaco-editor *,\n .markdown-body pre, .markdown-body pre *,\n .highlight, .highlight *,\n pre code, pre code * {\n filter: none !important;\n }\n \n /* Fix common UI elements */\n .modal, .popup, .dropdown-menu, .tooltip, .popover {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #2d2d44 !important;\n border-color: #444 !important;\n }\n \n /* Scrollbars */\n ::-webkit-scrollbar { background: #1a1a2e !important; }\n ::-webkit-scrollbar-thumb { background: #444 !important; }\n ::-webkit-scrollbar-thumb:hover { background: #555 !important; }\n \n /* Selection */\n ::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ';\n }\n \n function removeDarkMode() {\n var style = document.getElementById('universal-dark-mode-style');\n if (style) style.remove();\n }\n \n // Toggle with Alt+Shift+D\n document.addEventListener('keydown', function(e) {\n if (e.altKey && e.shiftKey && e.key === 'D') {\n e.preventDefault();\n enabled = !enabled;\n if (enabled) {\n applyDarkMode();\n console.log('[Universal Dark Mode] Enabled');\n } else {\n removeDarkMode();\n console.log('[Universal Dark Mode] Disabled');\n }\n }\n });\n \n // Apply on load\n applyDarkMode();\n \n // Re-apply on dynamic content\n var observer = new MutationObserver(function(mutations) {\n if (enabled && !document.getElementById('universal-dark-mode-style')) {\n applyDarkMode();\n }\n });\n observer.observe(document.head, { childList: true });\n \n console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');\n})();", "Universal Dark Mode"); } } catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); } })(); })();
Skip to content

ARROW-13448: [R] Bindings for strftime - #11105

Closed
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448
Closed

ARROW-13448: [R] Bindings for strftime#11105
rok wants to merge 8 commits into
apache:masterfrom
rok:ARROW-13448

Conversation

@rok

@rokrok commented Sep 7, 2021

Copy link
Copy Markdown
Member

This is to resolve ARROW-13448.

@github-actions

Copy link
Copy Markdown

@github-actions

Copy link
Copy Markdown

⚠️ Ticket has not been started in JIRA, please click 'Start Progress'.

@rok
rokforce-pushed the ARROW-13448 branch 2 times, most recently from 5568c27 to 8ad7ce3CompareSeptember 13, 2021 16:14
@rok
rok marked this pull request as ready for review September 13, 2021 18:48
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp Outdated
@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks for the review @thisisnic!

@rok

rok commented Sep 16, 2021

Copy link
Copy Markdown
MemberAuthor

Another thing to note here is that behavior of the %S flag is different in arrow:

Output precision of %S (seconds) flag depends on the input timestamp precision. Timestamps with second precision are represented as integers while milliseconds, microsecond and nanoseconds are represented as fixed floating point numbers with 3, 6 and 9 decimal places respectively. To obtain integer seconds, cast to timestamp with second resolution. The character for the decimal point is localized according to the locale. See detailed formatting documentation for descriptions of other flags.

This is already tested in c++ and we test it in Python like so. I'm not sure there's a point in testing it in R but it could look like this:

arr<-Array$create(c(lubridate::ymd_hms("2018-10-07 19:04:05"), NA), type= timestamp("s"))
expect_dplyr_equal(
input %>%
mutate(x= strftime(x, format="%S")) %>%
collect(),
arr
)

Except this wouldn't work for type reasons:

Error (test-dplyr-string-functions.R:756:3):strftimeError:noapplicablemethodfor'mutate'appliedtoanobjectofclass"c('Array', 'ArrowDatum', 'ArrowObject', 'R6')"

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please can you also run the styler, so that the linter stops complaining?

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/src/compute.cpp
@thisisnic

thisisnic commented Sep 16, 2021

Copy link
Copy Markdown
Member

behavior of the %S flag is different in arrow

So, the R "%S" returns an integer, so you're right in highlighting the difference between Arrow and R. We have other time-related functions which return slightly different values, which we allow for, e.g.

test_that("extract second from timestamp", {
expect_dplyr_equal(
input %>%
mutate(x= second(datetime)) %>%
collect(),
test_df,
# arrow supports nanosecond resolution but lubridate does not
tolerance=1e-6
)
})

The function expect_dplyr_equal(), as you've pointed out, won't work on Array objects. However, you could write a test like the one shown above, which just adds a tolerance (given that the user is being returned a more precise answer than they would have, the tolerance is justified).

I suppose the difficulty lies in the fact that the output is a string not a number, but there will be workarounds.

Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
@rok
rokforce-pushed the ARROW-13448 branch 5 times, most recently from 768a940 to ba9fe66CompareSeptember 18, 2021 22:15
Co-authored-by: Nic <thisisnic@gmail.com>
Comment on lines +748 to +762
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = formats_minus_c, tz = "Pacific/Marquesas")) %>%
collect(),
times
)

withr::with_locale(new = c("LC_TIME" = "C"),
expect_dplyr_equal(
input %>%
mutate(x = strftime(x, format = "%c", tz = "Pacific/Marquesas")) %>%
collect(),
times
)
)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I can't quite explain why, but it happens on my laptop. Could it be that strftime is using locale different from the one we use here (Sys.getlocale("LC_TIME"))?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

It appears R's strftime interprets %c differently as date.h we use in arrow in certain locales and timezones?
Sometimes it's "%a %b %e %H:%M:%S %Y" and sometimes "%a %b %e %H:%M:%S %Y %Z".
Could also just be my laptop.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm a bit confused here - can you elaborate a bit more on your comments above please?

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, it was late :).
These tests are failing locally for me on the %c flag in Pacific/Marquesas, but not for say UTC. I am not sure why - it could be a difference between the definition of %c in date.h we're using and in R's strftime. Or it could just be some setting on my laptop. Either way it's very strange to see an error on only this flag with this locale and timezone.

I'm more and more suspicious of my laptop really.

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Another possibility is that the timezone database your system uses that may/may not be quite the same in different environments (cf https://stat.ethz.ch/R-manual/R-devel/library/base/html/timezones.html)

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Could be. FWIW I'm on Ubuntu 21.04 and have LC_TIME=nl_NL.UTF-8 and Sys.timezone()-> "Europe/Amsterdam".
I'll remove the check and see what happens in the CI.
Should we add checks in for different locales into the tests?

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If we're worried that there might be differences / bugs not respecting locales, having something non-default using withr::with_locale (like you do above) would be a good idea.

We do hardcode this for at least some of our CI builds

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ok, I think I finally understand what the issue is here. Arrow's strftime behaves differently than R's.
Arrow strftime(x, format = "%c %Z"):
Sat 01 Jan 2022 00:00:00 AM CET EST

R strftime(x, format = "%c"):
Sat 01 Jan 2022 12:00:00 AM EST EST

It's probably a bug in the C++ library we use so I opened an issue and added a reference to it in the comment HowardHinnant/date#704

Copy link
Copy Markdown
MemberAuthor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I've disabled %c in R for now and I propose we merge this and revisit later.
@pitrou shall we block %c in c++ as well? See HowardHinnant/date#704

@rok
rok requested a review from thisisnicSeptember 18, 2021 23:15
Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/tests/testthat/test-dplyr-string-functions.R Outdated
@rok

rok commented Sep 21, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic@jonkeane sorry this took a while. Could you please do another pass?

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good to me, but please can you give it a final check @jonkeane in case I've missed anything?

One other thing to note @rok - there was a comment on a duplicate ticket of this one which mentions implementing the lubridate package's format_ISO8601 function (see https://lubridate.tidyverse.org/reference/format_ISO8601.html). Please could you either:

  1. implement that here, or
  2. create a new ticket to implement it (and as you've done most of the hard work here, it could be a good candidate to label as good-first-issue or good-second-issue)

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

@thisisnic good catch on format_ISO8601. If you don't have a strong preference I'll go ahead and add it.

Yet another thing to note: the c++ strfkernel only works for timestamps at the moment. When dates and times are added (ARROW-13916) we should add tests in R as well. I'll make a note on Jira.

@rok

rok commented Sep 22, 2021

Copy link
Copy Markdown
MemberAuthor

Ok, added format_ISO8601 and moved %c check into c++. I suppose another review is in order @thisisnic :)

Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Jonathan Keane <jkeane@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A couple of minor things, otherwise looking good!

Comment threadr/R/dplyr-functions.R Outdated
Comment threadr/R/dplyr-functions.R Outdated
Co-authored-by: Nic <thisisnic@gmail.com>

@thisisnicthisisnic left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for implementing format_ISO8601 as well!

@rok
rok requested a review from jonkeaneSeptember 23, 2021 16:03

@jonkeanejonkeane left a comment

Copy link
Copy Markdown
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Looks good, thanks for this

@rok

rok commented Sep 23, 2021

Copy link
Copy Markdown
MemberAuthor

Thanks @thisisnic@jonkeane@edponce !

ViniciusSouzaRoque pushed a commit to s1mbi0se/arrow that referenced this pull request Oct 20, 2021
This is to resolve [ARROW-13448](https://issues.apache.org/jira/browse/ARROW-13448).
Closesapache#11105 from rok/ARROW-13448
Lead-authored-by: Rok <rok@mihevc.org>
Co-authored-by: Rok Mihevc <rok@mihevc.org>
Signed-off-by: Jonathan Keane <jkeane@gmail.com>
@asfimportasfimport mentioned this pull request Sep 23, 2021
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants

@rok@thisisnic@edponce@jonkeane