andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 13:30:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

trial and error

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-20 12:41:48 +01:00
parent c86ae9a364
commit 6fb55fd2cc
No known key found for this signature in database
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
inst/shiny-examples/casting/server.R
View File

@ -24,7 +24,7 @@ server <- function(input, output, session) {
out <- read_input(input$ds$datapath) out <- read_input(input$ds$datapath)
# Saves labels to reapply later # Saves labels to reapply later
labels <- lapply(out, get_attr) # labels <- lapply(out, get_attr)
out <- out |> out <- out |>
## Parses data with readr functions ## Parses data with readr functions
@ -44,10 +44,10 @@ server <- function(input, output, session) {
} }
# Old attributes are appended # Old attributes are appended
out <- purrr::imap(out,\(.x,.i){ # out <- purrr::imap(out,\(.x,.i){
set_attr(.x,labels[[.i]]) # set_attr(.x,labels[[.i]])
}) |> # }) |>
dplyr::bind_cols() # dplyr::bind_cols()
out out
}) })