Восстановить данные, прикрепленные с именем вкладки - PullRequest
Новая
       17

Восстановить данные, прикрепленные с именем вкладки

0 голосов
/ 12 мая 2019

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

Вот первая таблица 

+-----------+--------------------+-------+
| row_names | available_scenario | s_key |
 +-----------+--------------------+-------+
| FALSE     | aaa                |     1 |
| FALSE     | kart               |     2 |
| FALSE     | final              |     3 |
+-----------+--------------------+-------+

Вот вторая таблица, которая содержит данные для графиков 

 +-------------+------+--------+--------------+
| Overbooking | Cost | Profit | s_key         |
+-------------+------+--------+--------------+
|           1 |    0 |  22000 |            1 |
|           2 |    0 |  30600 |            1 |
|           3 |    0 |  23800 |            1 |
|           4 |    0 |  32600 |            1 |
|           5 |    0 |  30600 |            1 |
|           6 |    0 |  33200 |            1 |
|           7 |    0 |  32200 |            2 |
|           8 |    0 |  31800 |            2 |
|           9 |    0 |  31800 |            2 |
|          10 |    0 |  28200 |            2 |
|          11 |    0 |  28800 |            2 |
|          12 |    0 |  33200 |            2 |
|          13 |    0 |  31600 |            2 |
|          14 |    0 |  30400 |            3 |
|          15 |    0 |  33600 |            3 |
|          16 |    0 |  26200 |            3 |
|          17 |    0 |  33000 |            3 |
|          18 |    0 |  25200 |            3 |

Вот пример кода 

   library("shiny")
  library("shinydashboard")
  library("pool")
 library("DBI")
 pool <- dbPool(drv = RMySQL::MySQL(),dbname = "demo",host =       "db.cr7dht.us-east-2.rds.amazonaws.com",username = "kak",password =    "1278",    port = 3306)
 mychoices = dbGetQuery(pool,"select available_scenario from sc;")
   ui <- (fluidPage(
    titlePanel("Demonstration of renderUI in shiny - Dymanically creating            the       tabs based on user inputs"),
     sidebarLayout(
     sidebarPanel(
     selectInput('n', "available scenarios", choices = mychoices,        multiple      = TRUE),
    verbatimTextOutput("selected")

      ),
   mainPanel(
     uiOutput('tabs')
  )
 )
))
server <- (function(input,output,session){
 output$tabs = renderUI({
   observe({
   updateSelectInput(
session, "n", choices = mychoices
 )
 })
Tabs <- lapply(paste("tab name", 1:input$choices, sep=" "), tabPanel)
do.call(tabsetPanel, Tabs)

  })
})
shinyApp(ui, server)

здесь, когда я нажимаю на кнопку выбора функции ввода и выбираю имя соответствующего сценария, тогда я строю график с использованием функции графика (это не проблема). Теперь у меня возникают проблемы с тем, как я могу связать имя вкладки с 1-й таблицей. После связывания имени вкладки и 1-й таблицы я могу использовать 2-ю таблицу по внешнему ключу. Надеюсь, я объясняю свою проблему. Может ли кто-нибудь помочь.

...