FreesearchR/inst/apps/data_analysis/ui.R

library(shiny)
library(bslib)
requireNamespace("gt")
# require(ggplot2)
# source("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/R/index_from_raw.R")
# source("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/R/plot_index.R")
# source(here::here("R/index_from_raw.R"))
# source(here::here("R/plot_index.R"))

# ui <- fluidPage(

cards <- list(
  bslib::card(
    max_height = "200px",
    full_screen = TRUE,
    bslib::card_header("Data overview"),
    shiny::uiOutput("data.input")
  ),
  bslib::card(
    # max_height = "200px",
    full_screen = TRUE,
    bslib::card_header("Baseline characteristics"),
    gt::gt_output(outputId = "table1")
  ),
  bslib::card(
    full_screen = TRUE,
    bslib::card_header("Multivariable regression table"),
    gt::gt_output(outputId = "table2")
  )
)

panels <- list(
  bslib::nav_panel(
    title = "Data overview",
    shiny::uiOutput("data.classes"),
    shiny::uiOutput("data.input")
  ),
  bslib::nav_panel(
    title = "Baseline characteristics",
    gt::gt_output(outputId = "table1")
  ),
  bslib::nav_panel(
    title = "Multivariable regression table",
    gt::gt_output(outputId = "table2")
  )
)


ui <- bslib::page(
  theme = bslib::bs_theme(bootswatch = "minty",
                            base_font = font_google("Inter"),
                            code_font = font_google("JetBrains Mono")
                          ),
  # theme = bslib::bs_theme(
    # bg = "#101010",
    # fg = "#FFF",
  #   primary = "#E69F00",
  #   secondary = "#0072B2",
  #   success = "#009E73",
  #   base_font = font_google("Inter"),
  #   code_font = font_google("JetBrains Mono")
  # ),
  title = "webResearcher for easy data analysis",
  bslib::page_navbar(
    title = "webResearcher",
    header = h6("Welcome to the webResearcher tool. This is an early alpha version to act as a proof-of-concept and in no way intended for wider public use."),

    # sidebarPanel(
    sidebar = bslib::sidebar(
      width = 300,
      open = "open",
      shiny::h4("Upload your dataset"),
      shiny::conditionalPanel(
        condition = "output.has_input=='yes'",
        # Input: Select a file ----
        shiny::helpText("Analyses are performed on provided data")
      ),
      shiny::conditionalPanel(
        condition = "output.has_input=='no'",
        # Input: Select a file ----
        shiny::fileInput(
          inputId = "file",
          label = "Choose data file",
          multiple = FALSE,
          accept = c(
            ".csv",
            ".xlsx",
            ".xls",
            ".dta",
            ".ods",
            ".rds"
          )
        ),
        # Does not work??
      #   shiny::actionButton(inputId = "test_data",
      #                       label = "Load test data", class = "btn-primary")
      ),
      shiny::conditionalPanel(
        condition = "output.uploaded=='yes'",
        shiny::h4("Parameter specifications"),
        shiny::radioButtons(
          inputId = "regression_auto",
          label = "Automatically choose function",
          inline = TRUE,
          choiceNames = c(
            "Yes",
            "No"
          ),
          choiceValues = c(1, 2)
        ),
        shiny::conditionalPanel(
          condition = "input.regression_auto==2",
          shiny::textInput(
            inputId = "regression_formula",
            label = "Formula string to render with 'glue::glue'",
            value = NULL
          ),
          shiny::textInput(
            inputId = "regression_fun",
            label = "Function to use for analysis (needs pasckage and name)",
            value = "stats::lm"
          ),
          shiny::textInput(
            inputId = "regression_args",
            label = "Arguments to pass to the function (provided as a string)",
            value = ""
          )
        ),
        shiny::helpText(em("Please specify relevant columns from your data, and press 'Load data'")),
        shiny::uiOutput("outcome_var"),
        shiny::radioButtons(
          inputId = "all",
          label = "Specify covariables",
          inline = TRUE, selected = 2,
          choiceNames = c(
            "Yes",
            "No"
          ),
          choiceValues = c(1, 2)
        ),
        shiny::conditionalPanel(
          condition = "input.all==1",
          shiny::uiOutput("include_vars")
        ),
        shiny::radioButtons(
          inputId = "specify_factors",
          label = "Specify categorical variables?",
          selected = "no",
          inline = TRUE,
          choices = list(
            "No" = "no",
            "Yes" = "yes"
          )
        ),
        shiny::conditionalPanel(
          condition = "input.specify_factors=='yes'",
          shiny::uiOutput("factor_vars")
        ),
        shiny::actionButton("load", "Analyse", class = "btn-primary"),
        #
        # # Horizontal line ----
        tags$hr(),
        shiny::conditionalPanel(
          condition = "input.load",
          h4("Download results"),
          shiny::helpText("Choose your favourite output file format for further work."),
          shiny::selectInput(
            inputId = "output_type",
            label = "Choose your desired output format",
            selected = NULL,
            choices = list(
              "Word" = "docx",
              "LibreOffice" = "odt"
              # ,
              # "PDF" = "pdf",
              # "All the above" = "all"
            )
          ),

          # Button
          downloadButton(
            outputId = "report",
            label = "Download",
            icon = shiny::icon("download")
          )
        )
      )
    ),
    bslib::nav_spacer(),
    panels[[1]],
    panels[[2]],
    panels[[3]]

    # layout_columns(
    #   cards[[1]]
    # ),
    # layout_columns(
    #   cards[[2]], cards[[3]]
    # )
  )
)