This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-24 13:05:54 +02:00
parent ab780591b1
commit ffe80bf043
No known key found for this signature in database
6 changed files with 16 additions and 7 deletions

Binary file not shown.

View file

@ -24,6 +24,7 @@
|package |loadedversion |date |source | |package |loadedversion |date |source |
|:-------------|:-------------|:----------|:--------------| |:-------------|:-------------|:----------|:--------------|
|apexcharter |0.4.4 |2024-09-06 |CRAN (R 4.4.1) | |apexcharter |0.4.4 |2024-09-06 |CRAN (R 4.4.1) |
|askpass |1.2.1 |2024-10-04 |CRAN (R 4.4.1) |
|assertthat |0.2.1 |2019-03-21 |CRAN (R 4.4.1) | |assertthat |0.2.1 |2019-03-21 |CRAN (R 4.4.1) |
|backports |1.5.0 |2024-05-23 |CRAN (R 4.4.1) | |backports |1.5.0 |2024-05-23 |CRAN (R 4.4.1) |
|bayestestR |0.15.2 |2025-02-07 |CRAN (R 4.4.1) | |bayestestR |0.15.2 |2025-02-07 |CRAN (R 4.4.1) |
@ -44,6 +45,7 @@
|correlation |0.8.7 |2025-03-03 |CRAN (R 4.4.1) | |correlation |0.8.7 |2025-03-03 |CRAN (R 4.4.1) |
|crayon |1.5.3 |2024-06-20 |CRAN (R 4.4.1) | |crayon |1.5.3 |2024-06-20 |CRAN (R 4.4.1) |
|crosstalk |1.2.1 |2023-11-23 |CRAN (R 4.4.0) | |crosstalk |1.2.1 |2023-11-23 |CRAN (R 4.4.0) |
|curl |6.2.2 |2025-03-24 |CRAN (R 4.4.1) |
|data.table |1.17.0 |2025-02-22 |CRAN (R 4.4.1) | |data.table |1.17.0 |2025-02-22 |CRAN (R 4.4.1) |
|datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) | |datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) |
|datawizard |1.0.2 |2025-03-24 |CRAN (R 4.4.1) | |datawizard |1.0.2 |2025-03-24 |CRAN (R 4.4.1) |
@ -97,6 +99,7 @@
|munsell |0.5.1 |2024-04-01 |CRAN (R 4.4.1) | |munsell |0.5.1 |2024-04-01 |CRAN (R 4.4.1) |
|nlme |3.1-168 |2025-03-31 |CRAN (R 4.4.1) | |nlme |3.1-168 |2025-03-31 |CRAN (R 4.4.1) |
|nloptr |2.2.1 |2025-03-17 |CRAN (R 4.4.1) | |nloptr |2.2.1 |2025-03-17 |CRAN (R 4.4.1) |
|openssl |2.3.2 |2025-02-03 |CRAN (R 4.4.1) |
|openxlsx2 |1.14 |2025-03-20 |CRAN (R 4.4.1) | |openxlsx2 |1.14 |2025-03-20 |CRAN (R 4.4.1) |
|parameters |0.24.2 |2025-03-04 |CRAN (R 4.4.1) | |parameters |0.24.2 |2025-03-04 |CRAN (R 4.4.1) |
|patchwork |1.3.0 |2024-09-16 |CRAN (R 4.4.1) | |patchwork |1.3.0 |2024-09-16 |CRAN (R 4.4.1) |

View file

@ -9351,7 +9351,8 @@ ui_elements <- list(
update_variables_ui("modal_variables"), update_variables_ui("modal_variables"),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$br(), shiny::tags$br(),
tags$h4("Advanced data manipulation"), shiny::tags$h4("Advanced data manipulation"),
shiny::tags$p("Below options allow more advanced varaible manipulations."),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$br(), shiny::tags$br(),
shiny::fluidRow( shiny::fluidRow(
@ -9364,6 +9365,7 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText("Reorder the levels of factor/categorical variables."), shiny::helpText("Reorder the levels of factor/categorical variables."),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
), ),
shiny::column( shiny::column(
@ -9375,6 +9377,7 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."), shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
), ),
shiny::column( shiny::column(
@ -9386,10 +9389,10 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")), shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
) )
), ),
shiny::tags$br(),
tags$h4("Compare modified data to original"), tags$h4("Compare modified data to original"),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$p( shiny::tags$p(
@ -10021,7 +10024,7 @@ server <- function(input, output, session) {
input$modal_column, input$modal_column,
modal_create_column( modal_create_column(
id = "modal_column", id = "modal_column",
footer = "This window is aimed at advanced users and require some R-experience!", footer = shiny::markdown("This window is aimed at advanced users and require some *R*-experience!"),
title = "Create new variables" title = "Create new variables"
) )
) )

View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 14600805 appId: 14600805
bundleId: 10170130 bundleId:
url: https://agdamsbo.shinyapps.io/FreesearchR/ url: https://agdamsbo.shinyapps.io/FreesearchR/
version: 1 version: 1

View file

@ -321,7 +321,7 @@ server <- function(input, output, session) {
input$modal_column, input$modal_column,
modal_create_column( modal_create_column(
id = "modal_column", id = "modal_column",
footer = "This window is aimed at advanced users and require some R-experience!", footer = shiny::markdown("This window is aimed at advanced users and require some *R*-experience!"),
title = "Create new variables" title = "Create new variables"
) )
) )

View file

@ -197,7 +197,8 @@ ui_elements <- list(
update_variables_ui("modal_variables"), update_variables_ui("modal_variables"),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$br(), shiny::tags$br(),
tags$h4("Advanced data manipulation"), shiny::tags$h4("Advanced data manipulation"),
shiny::tags$p("Below options allow more advanced varaible manipulations."),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$br(), shiny::tags$br(),
shiny::fluidRow( shiny::fluidRow(
@ -210,6 +211,7 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText("Reorder the levels of factor/categorical variables."), shiny::helpText("Reorder the levels of factor/categorical variables."),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
), ),
shiny::column( shiny::column(
@ -221,6 +223,7 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."), shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
), ),
shiny::column( shiny::column(
@ -232,10 +235,10 @@ ui_elements <- list(
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")), shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")),
shiny::tags$br(),
shiny::tags$br() shiny::tags$br()
) )
), ),
shiny::tags$br(),
tags$h4("Compare modified data to original"), tags$h4("Compare modified data to original"),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$p( shiny::tags$p(