Skip to content
New issue

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

Sign up for GitHub

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

Already on GitHub? Sign in to your account

Resolve issue #94 #96

Merged
merged 5 commits into from
Apr 26, 2024
Merged

Resolve issue #94 #96

Changes from 1 commit
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
058ea00
Return single value in `dcast.data.table()`. Required in `data.table`…
JanMarvin Apr 14, 2024
8a70bae
fix: github issue 94
eli-daniels Apr 22, 2024
5f3eecb
doc: Clean up comments old code commented out.
eli-daniels Apr 22, 2024
e6fb3b7
feat: improved version that keeps all of user's data.
eli-daniels Apr 26, 2024
87085cb
doc: version up and roxygen2 new version
davidgohel Apr 26, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
feat: improved version that keeps all of user's data.
  • Loading branch information
@eli-daniels
eli-daniels committed Apr 26, 2024
commit e6fb3b7ccbef7a8203c28c1eca16827b98925eba
8 changes: 5 additions & 3 deletions R/excel_series.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,15 +57,17 @@ transpose_data <- function(data, vars, group) {
}


#' @importFrom data.table := .N
dcast_data <- function(data, x, y, group) {
dataset <- as.data.table(data)
form_str <- sprintf("%s + data.table::rowid(%s, prefix = 'dcast_dummy') ~ %s", x, x, group)
dataset <- dataset[, c(".fake_id.") := list(seq_len(.N)), by = c(x, group)]
form_str <- sprintf("%s + .fake_id. ~ %s", x, group)
out <- dcast.data.table(
dataset,
formula = as.formula(form_str),
fill = NA,
value.var = y
fill = NA, value.var = y
)
out$.fake_id. <- NULL
setDF(out)
out
}
Expand Down
Loading