#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)