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

docs and added page tracking

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-16 14:24:38 +01:00
parent abeacade79
commit 703daaec4b
No known key found for this signature in database
10 changed files with 75 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -1,9 +1,9 @@
# freesearcheR
<!-- badges: start -->
[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)
[![rhub](https://github.com/agdamsbo/freesearcheR/actions/workflows/rhub.yaml/badge.svg)](https://github.com/agdamsbo/freesearcheR/actions/workflows/rhub.yaml)
[![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.14527429.svg)](https://doi.org/10.5281/zenodo.14527429)
[![freesearcheR](https://img.shields.io/badge/Shiny-shinyapps.io-blue?style=flat&labelColor=white&logo=RStudio&logoColor=blue)](https://agdamsbo.shinyapps.io/freesearcheR/)
<!-- badges: end -->

6
_pkgdown.yml
View file

@ -6,8 +6,12 @@ template:
secondary: "#FF6F61"
bootswatch: "united"
base_font: {google: "Montserrat"}
heading_font: {google: "Public Sans",wght: "700"}
heading_font: {google: "Public Sans"}
code_font: {google: "Open Sans"}
light-switch: false
navbar:
bg: primary
includes:
in_header: umami-page.html

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

@ -3096,28 +3096,46 @@ ui_elements <- list(
fluidRow(
shiny::column(
width = 9,
update_variables_ui("vars_update")
update_variables_ui("vars_update"),
shiny::tags$br()
),
shiny::column(
width = 3,
tags$h3("Create new variables"),
tags$h4("Create new variables"),
shiny::tags$br(),
shiny::actionButton("modal_cut", "Create factor variable"),
shiny::actionButton(
inputId = "modal_cut",
label = "Create factor variable",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Create factor/categorical variable from an other value."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("modal_update", "Reorder factor levels"),
shiny::actionButton(
inputId = "modal_update",
label = "Reorder factor levels",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Reorder the levels of factor/categorical variables."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("modal_column", "New variable"),
shiny::actionButton(
inputId = "modal_column",
label = "New variable",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Create a new variable/column based on an R-expression."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("data_reset", "Restore original data"),
tags$h4("Restore"),
shiny::actionButton(
inputId = "data_reset",
label = "Restore original data",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Reset to original imported dataset. Careful! There is no un-doing."),
shiny::tags$br() # ,
@ -3346,6 +3364,7 @@ dark <- custom_theme(
# https://webdesignerdepot.com/17-open-source-fonts-youll-actually-love/
ui <- bslib::page_fixed(
shiny::tags$head(includeHTML(("www/umami-app.html"))),
shiny::tags$style(
type = "text/css",
# add the name of the tab you want to use as title in data-value
@ -3945,7 +3964,7 @@ server <- function(input, output, session) {
##############################################################################
shiny::observeEvent(input$act_start, {
bslib::nav_select(id = "main_panel", selected = "Modifications")
bslib::nav_select(id = "main_panel", selected = "Data")
})

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: 9656431
bundleId: 9656811
url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1

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

@ -554,7 +554,7 @@ server <- function(input, output, session) {
##############################################################################
shiny::observeEvent(input$act_start, {
bslib::nav_select(id = "main_panel", selected = "Modifications")
bslib::nav_select(id = "main_panel", selected = "Data")
})

31
inst/apps/data_analysis_modules/ui.R
View file

@ -160,28 +160,46 @@ ui_elements <- list(
fluidRow(
shiny::column(
width = 9,
update_variables_ui("vars_update")
update_variables_ui("vars_update"),
shiny::tags$br()
),
shiny::column(
width = 3,
tags$h3("Create new variables"),
tags$h4("Create new variables"),
shiny::tags$br(),
shiny::actionButton("modal_cut", "Create factor variable"),
shiny::actionButton(
inputId = "modal_cut",
label = "Create factor variable",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Create factor/categorical variable from an other value."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("modal_update", "Reorder factor levels"),
shiny::actionButton(
inputId = "modal_update",
label = "Reorder factor levels",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Reorder the levels of factor/categorical variables."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("modal_column", "New variable"),
shiny::actionButton(
inputId = "modal_column",
label = "New variable",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Create a new variable/column based on an R-expression."),
shiny::tags$br(),
shiny::tags$br(),
shiny::actionButton("data_reset", "Restore original data"),
tags$h4("Restore"),
shiny::actionButton(
inputId = "data_reset",
label = "Restore original data",
width = "100%"
),
shiny::tags$br(),
shiny::helpText("Reset to original imported dataset. Careful! There is no un-doing."),
shiny::tags$br() # ,
@ -410,6 +428,7 @@ dark <- custom_theme(
# https://webdesignerdepot.com/17-open-source-fonts-youll-actually-love/
ui <- bslib::page_fixed(
shiny::tags$head(includeHTML(("www/umami-app.html"))),
shiny::tags$style(
type = "text/css",
# add the name of the tab you want to use as title in data-value

2
inst/apps/data_analysis_modules/www/intro.md
View file

@ -20,6 +20,6 @@ There are four simple steps to go through (see corresponding tabs in the top):
4. Export the the analyses results for MS Word or [LibreOffice](https://www.libreoffice.org/) as well as the data with preserved metadata.
Have a look at the [documentations page]() for further project description. If you're interested in the source code, then go on, [have a look](https://github.com/agdamsbo/freesearcheR)!
Have a look at the [documentations page](https://agdamsbo.github.io/freesearcheR/) for further project description. If you're interested in the source code, then go on, [have a look](https://github.com/agdamsbo/freesearcheR)!
If you encounter anything strange or the app doesn't act as expected. Please [report on Github](https://github.com/agdamsbo/freesearcheR/issues).

1
inst/apps/data_analysis_modules/www/umami-app.html Normal file
View file

@ -0,0 +1 @@
<script defer src="https://analytics.gdamsbo.dk/script.js" data-website-id="e7d4e13a-5824-4778-bbc0-8f92fb08303a"></script>

3
pkgdown/extra.css Normal file
View file

@ -0,0 +1,3 @@
h1,h2,h3 {
font-weight: 700;
}

1
umami-page.html Normal file
View file

@ -0,0 +1 @@
<script defer src="https://analytics.gdamsbo.dk/script.js" data-website-id="1f3baf18-29aa-4612-931b-58ea35922ae4"></script>