[question] expected output of x %>% dbplyr::compute() %>% dbplyr::remote_name()

[yitao-li]

For example, consider

df1 <- memdb_frame(x = 1)
df2 <- df1 %>% mutate(y = 0)
dfc <- df2 %>% compute()
print(dfc %>% remote_name())

With dbplyr version 2.1.1 the output is NULL, but I seem to remember some earlier version of dbplyr would produce a non-NULL output, and also based on how I understood the dbplyr documentation, a non-NULL output is expected, right?

BTW the aforementioned NULL / non-NULL outputs also apply to Spark dataframes in sparklyr or other DB backends, not just memdb_frames.

[yitao-li]

In particular, now if I run the following with sparklyr:

library(sparklyr)

sc <- spark_connect(master = "local")
sdf <- sdf_len(sc, 5)
print(dbplyr::remote_name(sdf))
sdf <- sdf %>% dplyr::compute()
print(dbplyr::remote_name(sdf))

I see the table had a remote name to begin with, but then after dplyr::compute() the remote name is not there any more, which seems counter-intuitive, and I don't think this happened with an earlier version of dbplyr.

[yitao-li]

And same with the memdb_frame example too (i.e., if I simplify the example I mentioned in the issue to something matching the sparklyr example from the above):

library(dplyr)
library(dbplyr)

df <- memdb_frame(x = 1)
print(df %>% remote_name()) # has remote name
df <- df %>% compute()
print(df %>% remote_name()) # remote name becomes NULL now :/

[yitao-li]

^^ but the examples above do return a non-NULL remote name after compute() with dbplyr 2.0, and I believe there was some change in dbplyr 2.1.x that caused the NULL output

[yitao-li]

Proposed change: #649 (i.e., I think remote_name() should ignore the "trailing" bunch of op_ungroup operations -- let me know if it makes sense)

[mgirlich]

I think it would make more sense to make remote_name() a generic. And then also op_group_by should be ignored. For example:

remote_name <- function(x) {
  UseMethod("remote_name")
}

#' @export
remote_name.tbl_lazy <- function(x) {
  remote_name(x$ops)
}

#' @export
remote_name.op_base <- function(x) {
  x$x
}

#' @export
remote_name.op_group_by <- function(x) {
  remote_name(x$x)
}

#' @export
remote_name.op_ungroup <- function(x) {
  remote_name(x$x)
}

#' @export
remote_name.default <- function(x) {
  return()
}

[yitao-li]

@mgirlich That's a great idea! I have revised my PR accordingly.

[krlmlr]

FWIW it looks like this was introduced in 4355916 (#616).