Как запросить сообщение о текстовом входе в R блестящий после выбора выпадающего ввода? - PullRequest
Новая
       71

Как запросить сообщение о текстовом входе в R блестящий после выбора выпадающего ввода?

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

Я пытаюсь создать приложение на бланке, где я даю некоторые имена таблиц в качестве ввода в выпадающем списке В теле есть поле textareaInput и кнопка действия "Go" на боковой панели. Все, что я хочу, это когда пользователь выбирает имя таблицы из выпадающего списка и нажимает go, тогда поле textAreainput должно быть заполнено строкой «select * from» + имя таблицы (выбрано из выпадающего меню. Прикрепление пользовательского интерфейса невозможно придумать код сервера. Справка Эми была бы очень полезна, так как я новичок в R и великолепен. С уважением 


library(shiny)
library(shinydashboard)
library(shinyjs)
library(RODBC)
library(DT)
library(shiny)



dataQuery <- "select TABLE_NAME from SSPTest.INFORMATION_SCHEMA.TABLES"

getDistinct <- function(column, table) {
  # function to get query for fetching unique values 
  query <- paste0("SELECT DISTINCT ", column, " FROM [%%%].[%%%].[", table, "]")
  return(query)
}

header  <- dashboardHeader(title = "LIVE QUERY RUNNER")

sidebar <- dashboardSidebar(
  selectInput(
    inputId  = "TABLENAME",
    label    = "Select the table",
    choices  = c("ANY","BASEBOARD_INFO",
    "RAM_INFO",
    "MEM_INFO",
    "TEST_SENSOR_DETAIL",
    "TEST_TTR"),
    width = 550
  ),actionButton(inputId = "runQuery", label = "Go"))

body <- dashboardBody(
  p(),
  textAreaInput("title", "Write your query here"))
textOutput("Result")



ui <- dashboardPage(skin = "green", header,sidebar, body)


server <- function(input, output, session) {
conn <- odbcConnect("%%%", uid= "%%%%", pwd="%%%%")
tableData <- reactiveVal()
errorNotification <- NULL

observeEvent(input$runQuery, {
  output$result <- "select * from " + input$TABLENAME

})
}

shinyApp(ui, server)
...