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

trimmed deps, updated renv

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-01-28 21:56:18 +01:00
commit 65f27aa862
No known key found for this signature in database
7 changed files with 227 additions and 181 deletions
Download patch file Download diff file Expand all files Collapse all files

12
inst/shiny-examples/casting/app.R
View file

@ -126,7 +126,11 @@ server <- function(input, output, session) {
output$downloadData <- shiny::downloadHandler(
filename = "data_ready.csv",
content = function(file) {
write.csv(purrr::pluck(dd(), "data"), file, row.names = FALSE, na = "")
readr::write_csv(
x = purrr::pluck(dd(), "data"),
file = file,
na = "")
# write.csv(purrr::pluck(dd(), "data"), file, row.names = FALSE, na = "")
}
)
@ -134,7 +138,11 @@ server <- function(input, output, session) {
output$downloadMeta <- shiny::downloadHandler(
filename = paste0("REDCapCAST_DataDictionary_", Sys.Date(), ".csv"),
content = function(file) {
write.csv(purrr::pluck(dd(), "meta"), file, row.names = FALSE, na = "")
readr::write_csv(
x = purrr::pluck(dd(), "meta"),
file = file,
na = "")
# write.csv(purrr::pluck(dd(), "meta"), file, row.names = FALSE, na = "")
}
)