cell edit should reflect in other column

library(shiny)
library(tidyverse)
library(DT)

some_data <- data.frame(e=1:8)

ui <- DTOutput('tbl')

server <- function(input, output, session) {

some_reactive <- reactive(some_data)

modified_reactive <- reactive({
mutate(some_reactive(),
f=if_else(e<4,"yes","no"))
})

output$tbl <- renderDT( modified_reactive() )
}

shinyApp(ui, server)

can you help with this ?
observeEvent(input$modified_reactive_cell_edit, {
f=if_else(e>100,"yes","no")

})
i tried this also