transfer from old repo

apps/Assignment/server.R

@@ -0,0 +1,96 @@
+server <- function(input, output, session) {
+  library(dplyr)
+  library(tidyr)
+  library(ROI)
+  library(ROI.plugin.symphony)
+  library(ompr)
+  library(ompr.roi)
+  library(magrittr)
+  library(ggplot2)
+  library(viridisLite)
+  library(patchwork)
+  library(openxlsx)
+  # source("https://git.nikohuru.dk/au-phd/PhysicalActivityandStrokeOutcome/raw/branch/main/side%20projects/assignment.R")
+  source("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)
+    
+    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'")
+    }
+    
+    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)
+    }
+  )
+  
+}