How to grab data into RShiny from excel based on cell color properties

[AbhishekHP]

We want to upload the file in shiny
But read only values based on cell color properties
(Cell background = white -> read value
else ignore)
How can we do it ?

Please find the template to read excel below
and screenshot of an excel :

#install.packages("readxl")
library(shiny)
library(readxl)

runApp(
  list(
    ui = fluidPage(
      titlePanel("Use readxl"),
      sidebarLayout(
        sidebarPanel(
          fileInput('file1', 'Choose xlsx file',
                    accept = c(".xlsx")
          )
        ),
        mainPanel(
          tableOutput('contents'))
      )
    ),
    server = function(input, output){
      output$contents <- renderTable({
        
        req(input$file1)
        
        inFile <- input$file1
        
        read_excel(inFile$datapath, 1)
      })
    }
  )
)

[nirgrahamuk]

Perhaps you could use excel named ranges rather than colour coding. openxlsx provides functions to leverage that.
Get named regions — getNamedRegions • openxlsx (ycphs.github.io)

[AbhishekHP]

Thanks for the idea. But this file keeps updating on regularly.
Therefore cell number keeps changing

[nirgrahamuk]

how does it come to have the correct color in the correct places ?
can it not come to have correct named ranges ?

[AbhishekHP]

It is random and adjusted by management based on some measurement

[nirgrahamuk]

reading between the lines, management can set colours, but can't do named ranges.
In that case, its opening a potential can of worms what with java dependencies, but the xlsx package, does have a function getCellStyle() you could try.
CRAN - Package xlsx (r-project.org)

[AbhishekHP]

Thanks for suggestion.
Not sure if I understand you.
Could you please share an example ?

[nirgrahamuk]

A blog on the topic
When life gives you coloured cells, make categories | R-bloggers (r-bloggers.com)