andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 05:07:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

executing examples with as_factor() errors. I think due to redundancy. Will investigate.

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-20 12:40:29 +01:00
commit c86ae9a364
No known key found for this signature in database
13 changed files with 58 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

2
inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 11351429
bundleId:
bundleId: 9391508
url: https://agdamsbo.shinyapps.io/redcapcast/
version: 1

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

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