andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 18:09:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

manual functions for data import

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-20 13:18:36 +01:00
parent f9c585a5fe
commit 9f828aa4bd
No known key found for this signature in database
4 changed files with 54 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/data-summary.R
View file

@ -226,10 +226,13 @@ create_overview_datagrid <- function(data) {
formatter = toastui::JS("function(obj) {return (obj.value*100).toFixed(0) + '%';}")
)
## This could obviously be extended, which will added even more complexity.
grid <- toastui::grid_filters(
grid = grid,
columns = "name",
showApplyBtn = TRUE,
column = "name",
# columns = unname(std_names[std_names!="vals"]),
showApplyBtn = FALSE,
showClearBtn = TRUE,
type = "text"
)

42
inst/apps/data_analysis_modules/app.R
View file

@ -694,10 +694,11 @@ data_summary_ui <- function(id) {
}
#' @param id id
#'
#' @param data data
#' @param color.main main color
#' @param color.sec secondary color
#' @param ... arguments passed to toastui::datagrid
#'
#' @name data-summary
#' @returns shiny server module
@ -705,7 +706,8 @@ data_summary_ui <- function(id) {
data_summary_server <- function(id,
data,
color.main,
color.sec) {
color.sec,
...) {
shiny::moduleServer(
id = id,
module = function(input, output, session) {
@ -906,10 +908,13 @@ create_overview_datagrid <- function(data) {
formatter = toastui::JS("function(obj) {return (obj.value*100).toFixed(0) + '%';}")
)
## This could obviously be extended, which will added even more complexity.
grid <- toastui::grid_filters(
grid = grid,
columns = "name",
showApplyBtn = TRUE,
column = "name",
# columns = unname(std_names[std_names!="vals"]),
showApplyBtn = FALSE,
showClearBtn = TRUE,
type = "text"
)
@ -3625,7 +3630,7 @@ ui_elements <- list(
min = 0,
max = 100,
step = 10,
value = 50,
value = 70,
ticks = FALSE),
shiny::helpText("To improve speed, columns are removed before analysing data, if copleteness is below above value."),
shiny::radioButtons(
@ -3955,6 +3960,8 @@ server <- function(input, output, session) {
#########
##############################################################################
consider.na <- c("NA", "\"\"", "")
data_file <- datamods::import_file_server(
id = "file_import",
show_data_in = "popup",
@ -3962,13 +3969,22 @@ server <- function(input, output, session) {
return_class = "data.frame",
read_fns = list(
ods = function(file) {
readODS::read_ods(path = file)
readODS::read_ods(path = file, na = consider.na)
},
dta = function(file) {
haven::read_dta(file = file)
haven::read_dta(file = file, .name_repair = "unique_quiet")
},
csv = function(file){
readr::read_csv(file)
csv = function(file) {
readr::read_csv(file = file, na = consider.na)
},
# xls = function(file){
# openxlsx2::read_xlsx(file = file, na.strings = consider.na,)
# },
# xlsx = function(file){
# openxlsx2::read_xlsx(file = file, na.strings = consider.na,)
# },
rds = function(file) {
readr::read_rds(file = file)
}
)
)
@ -4038,7 +4054,8 @@ server <- function(input, output, session) {
rv$data_filtered
}),
color.main = "#2A004E",
color.sec = "#C62300"
color.sec = "#C62300",
pagination = 20
)
#########
@ -4100,7 +4117,7 @@ server <- function(input, output, session) {
# data <- rv$data
toastui::datagrid(
# data = rv$data # ,
data = data_filter(),pagination = 30,
data = data_filter(), pagination = 30,
# bordered = TRUE,
# compact = TRUE,
# striped = TRUE
@ -4155,7 +4172,8 @@ server <- function(input, output, session) {
})() |>
janitor::remove_empty(
which = "cols",
cutoff = input$complete_cutoff/100)
cutoff = input$complete_cutoff / 100
)
}
)

2
inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 13611288
bundleId: 9672388
bundleId: 9672500
url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1

24
inst/apps/data_analysis_modules/server.R
View file

@ -90,6 +90,8 @@ server <- function(input, output, session) {
#########
##############################################################################
consider.na <- c("NA", "\"\"", "")
data_file <- datamods::import_file_server(
id = "file_import",
show_data_in = "popup",
@ -97,13 +99,22 @@ server <- function(input, output, session) {
return_class = "data.frame",
read_fns = list(
ods = function(file) {
readODS::read_ods(path = file)
readODS::read_ods(path = file, na = consider.na)
},
dta = function(file) {
haven::read_dta(file = file)
haven::read_dta(file = file, .name_repair = "unique_quiet")
},
csv = function(file){
readr::read_csv(file)
csv = function(file) {
readr::read_csv(file = file, na = consider.na)
},
# xls = function(file){
# openxlsx2::read_xlsx(file = file, na.strings = consider.na,)
# },
# xlsx = function(file){
# openxlsx2::read_xlsx(file = file, na.strings = consider.na,)
# },
rds = function(file) {
readr::read_rds(file = file)
}
)
)
@ -236,7 +247,7 @@ server <- function(input, output, session) {
# data <- rv$data
toastui::datagrid(
# data = rv$data # ,
data = data_filter(),pagination = 30,
data = data_filter(), pagination = 30,
# bordered = TRUE,
# compact = TRUE,
# striped = TRUE
@ -291,7 +302,8 @@ server <- function(input, output, session) {
})() |>
janitor::remove_empty(
which = "cols",
cutoff = input$complete_cutoff/100)
cutoff = input$complete_cutoff / 100
)
}
)