查询以使用响应式输入从数据库检索数据 **UI.R** 图书馆（闪亮） 新余 （fluidPage） ( 标题板（“预测”）， 侧边栏布局 ( 侧栏面板 ( （数值输入（“第十”，标签=h3（“X百分比”），数值=90））， 主面板（“主面板”） ) ) ) **服务器.R** 图书馆（闪亮） 图书馆（RMySQL） shinyServer( 功能（输入、输出） { db

可能会在

函数（输入、输出）

的

内部的
服务器.R
中生成一个
get_data（）
reactive

**UI.R**

library(shiny)

shinyUI
  (fluidPage
    (
      titlePanel("Predict"),

      sidebarLayout
      (
        sidebarPanel
          (
            (numericInput("tenth", label = h3("X Percentage"), value = 90)) ),
        mainPanel("Main Panel")
      )
    )
)


**Server.R**

library(shiny)
library(RMySQL)


shinyServer(
  function(input,output)
  {
    db <- dbConnect(MySQL(), dbname = "rstudio", host = "localhost", 
                    port = 3306, user = "root", password = "")

    query <- sprintf("SELECT * FROM userdetails where SSC = %s",input$tenth)
  }
)

get\u data可能会在
server.R
函数（输入、输出）
的内部创建一个
get\u data（）
响应

**UI.R**

library(shiny)

shinyUI
  (fluidPage
    (
      titlePanel("Predict"),

      sidebarLayout
      (
        sidebarPanel
          (
            (numericInput("tenth", label = h3("X Percentage"), value = 90)) ),
        mainPanel("Main Panel")
      )
    )
)


**Server.R**

library(shiny)
library(RMySQL)


shinyServer(
  function(input,output)
  {
    db <- dbConnect(MySQL(), dbname = "rstudio", host = "localhost", 
                    port = 3306, user = "root", password = "")

    query <- sprintf("SELECT * FROM userdetails where SSC = %s",input$tenth)
  }
)

get_数据