Блокировка кнопки на основе другой кнопки в flexdashboard - PullRequest
Новая
       47

Блокировка кнопки на основе другой кнопки в flexdashboard

0 голосов
/ 13 апреля 2020

Я пытаюсь нарушить лимит кнопки на основе действия другой кнопки. У меня есть два случая:

  • Во-первых, сумма двух кнопок не может превышать 100. Пример: когда я перемещаю кнопку Price 1 в 60 в моем shinyapp, Price 2 никогда не должен go превышать 40 (ее максимальное значение должно быть 40 сейчас). Также должно применяться обратное (если Price 2 равно 60, Price 1 никогда не должно превышать 40).

  • Во-вторых, значение кнопки не может быть больше или равно значению другой кнопки. Пример: когда я перемещаю кнопку Price 1 на 70 в моем shinyapp, Price 2 никогда не должен go превышать 69 (его максимальное значение должно быть 69 сейчас). Также должно применяться обратное.

Мой rmarkdown скрипт: 

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---

```{r}
df_1 <- data.frame(
  m = .01, 
  d = .02, 
  q = 1
)

dis <- function(mc, desc, qtde) {
  ((((mc) / (mc - desc)) - 1) * qtde + qtde)
}

prp <- dis(
  mc = df_1$m, 
  desc = df_1$d, 
  qtde = df_1$q
)
```

```{r FRONT-END}
library(flexdashboard)
library(shiny)
library(scales)
```

Stack Overflow
=================================

Sidebar{.sidebar data-width=290}
--------------------------------

```{r}
sliderInput(
  inputId = 'm', label = 'Price 1', 
  value = 50, 
  min = 0, 
  max = 100, 
  step = 5
)

sliderInput(
  inputId = 'd', label = 'Price 2', 
  value = 25, 
  min = 0, 
  max = 100, 
  step = 5
)
```
...