prioritized.grouping/R/server.R

library(shiny)
server <- function(input, output, session) {
  # source("https://git.nikohuru.dk/au-phd/PhysicalActivityandStrokeOutcome/raw/branch/main/side%20projects/assignment.R")
  source(here::here("R/group_assign.R"))

  dat <- reactive({
    # input$file1 will be NULL initially. After the user selects
    # and uploads a file, head of that data file by default,
    # or all rows if selected, will be shown.

    req(input$file1)
    # Make laoding dependent of file name extension (file_ext())
    ext <- file_extension(input$file1$datapath)

    tryCatch(
      {
        if (ext == "csv") {
          df <- read.csv(input$file1$datapath,na.strings = c("NA", '""',""))
        } else if (ext %in% c("xls", "xlsx")) {
          df <- openxlsx::read.xlsx(input$file1$datapath,na.strings = c("NA", '""',""))

        } else {
          stop("Input file format has to be either '.csv', '.xls' or '.xlsx'")
        }
      },
      error = function(e) {
        # return a safeError if a parsing error occurs
        stop(safeError(e))
      }
    )

    return(df)
  })

  dat_pre <- reactive({

    # req(input$file2)
    # Make laoding dependent of file name extension (file_ext())
    if (!is.null(input$file2$datapath)){
      ext <- file_extension(input$file2$datapath)

      if (ext == "csv") {
        df <- read.csv(input$file2$datapath,na.strings = c("NA", '""',""))
      } else if (ext %in% c("xls", "xlsx")) {
        df <- openxlsx::read.xlsx(input$file2$datapath,na.strings = c("NA", '""',""))

      } else {
        stop("Input file format has to be either '.csv', '.xls' or '.xlsx'")
      }

      return(df)
    } else {
      return(NULL)
    }

  })

  assign <-
    reactive({
      assigned <- group_assignment(
        ds = dat(),
        excess_space = input$ecxess,
        pre_assign = dat_pre()
      )
      return(assigned)
    })


  output$raw.data.tbl <- renderTable({
    assign()$export
  })

  output$pre.assign <- renderTable({
    dat_pre()
  })

  output$input <- renderTable({
    dat()
  })

  output$assign.plt <- renderPlot({
    assignment_plot(assign())
  })

  # Downloadable csv of selected dataset ----
  output$downloadData <- downloadHandler(
    filename = "group_assignment.csv",

    content = function(file) {
      write.csv(assign()$export, file, row.names = FALSE)
    }
  )

}