Есть ли способ использовать блестящие таблицы данных для выполнения вычислений с помощью формул, таких как excel?

#r #dataframe #shiny #datatable #dt

Вопрос:

Я искал в Интернете варианты использования блестящих таблиц данных, но ничего из того, что я нашел до сих пор, не позволяет мне использовать блестящие таблицы данных с формулами, встроенными во весь столбец, таким образом, чтобы я мог редактировать переменную, и весь столбец изменяется?

Это выглядело бы примерно так: Процентные ставки (переменные): 0,5%

Имя Базовый Долг Долг без процентов
Джон 1000 1005
Мэри 2000 2010

Где долг с процентами будет рассчитываться по базовому долгу * 1 проценты, а процентная ставка будет переменной, установленной отдельно.

Пожалуйста, дайте мне знать, если на этот вопрос уже был дан ответ!

Ответ №1:

Это снова я, 1 час спустя… входными данными можно управлять с помощью формул на стороне сервера, таких как:

 library(shiny)
library(xts)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("var", "Var",2),
    ),
    mainPanel(
      tableOutput("data")
    )
  )
)

server <- function(input, output) {
  output$data <- renderTable({
    # VOL 20 error handling
    NA_rows <- which(tabl$Num1 == "#N/A")
    tabl$Num1[NA_rows] <- 1
    
    # Calculations
    tabl



Num1 * Num2 * Var' <- tabl$Num1 * tabl$Num2 * input$var
tabl
}, bordered=TRUE, digits=5)
}

shinyApp(ui, server)