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

polish

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-24 13:05:54 +02:00
commit ffe80bf043
No known key found for this signature in database
6 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
inst/apps/FreesearchR/app.R
View file

@ -9351,7 +9351,8 @@ ui_elements <- list(
update_variables_ui("modal_variables"),
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::fluidRow(
@ -9364,6 +9365,7 @@ ui_elements <- list(
),
shiny::tags$br(),
shiny::helpText("Reorder the levels of factor/categorical variables."),
shiny::tags$br(),
shiny::tags$br()
),
shiny::column(
@ -9375,6 +9377,7 @@ ui_elements <- list(
),
shiny::tags$br(),
shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."),
shiny::tags$br(),
shiny::tags$br()
),
shiny::column(
@ -9386,10 +9389,10 @@ ui_elements <- list(
),
shiny::tags$br(),
shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")),
shiny::tags$br(),
shiny::tags$br()
)
),
shiny::tags$br(),
tags$h4("Compare modified data to original"),
shiny::tags$br(),
shiny::tags$p(
@ -10021,7 +10024,7 @@ server <- function(input, output, session) {
input$modal_column,
modal_create_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"
)
)

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

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

2
inst/apps/FreesearchR/server.R
View file

@ -321,7 +321,7 @@ server <- function(input, output, session) {
input$modal_column,
modal_create_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"
)
)

7
inst/apps/FreesearchR/ui.R
View file

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