Создать таблицу реактивного ввода - PullRequest
Новая
       45

Создать таблицу реактивного ввода

0 голосов
/ 05 марта 2019

У меня есть реактивный блеск, который подключается к MySQL и отображает таблицу данных при вводе от пользователя.В таблице mytable,

столбец A имеет значения - выиграл или потерян
столбец B имеет значения - выиграл или Потерян или Связан
Столбец C имеет значения - от 1 до 9
Столбец D имеет значения - от 0 до 150
Столбец E имеет значения - 1 или 2

Эти 4 значения выбираются на основе пользовательского ввода.В таблице mytable есть другие столбцы, такие как E и F., которые не зависят от пользовательского ввода. 

ui <- fluidPage(fluidRow(
column(4,radioButtons("firstorsecond", "First or Second",
choices = c(1: 2),selected='1')),

column(4,radioButtons("anotherselection", "Choose won or lost",
choices = list("Won" = 1, "Lost" = 2),selected='1')),

column(4,radioButtons("result", "Match Result",
choices = list("Won" = 1, "Lost" = 2, "Tied"=3),selected='1')),


column(4,checkboxGroupInput("pos", "Position", 
choices = c(1:9),inline = TRUE)),

column(4,sliderInput("range", "Score Range", min = 0, 
    max = 150,value = c(25,75))
))
)

server <- function(input, output) 
{

 rs=dbSendQuery(mydb,"select A,B,C,D,E,F from mytable where name='abcd'")
 adv_ana=fetch(rs,n=-1)

 dataInput<-reactive({
 **code goes here**
 })
 }

В dataInput<-reactive({}), помогите мне разобраться, как получить входное значение и отобразитьтаблица, содержащая все столбцы.

Заранее спасибо.

1 Ответ

0 голосов
/ 05 марта 2019

Вы можете использовать dplyr::filter для фильтрации строк по вашим критериям (не проверено, поскольку у меня нет ваших данных): 

datainput <- reactive{(
  your_table %>% 
    dplyr::filter(A == input$firstorsecond,
                  B == input$anotherselection,
                  C == input$result,
                  D == input$pos)
})

Возможно, вы адаптировались к своим фактическим данным, например, я считаю там 5В то время как в вашем описании вы упоминаете только 4 столбца.

...