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 <- renderDataTable ( modified_reactive(),
editable = list(target = "row",
disable = list(columns = c(1:ncol(some_reactive())-2))
),
)
}
shinyApp(ui, server)
if im changing the col e f is not changing??