mysql로 데이터를 끌고 와서 rshiny를 이용해 출력하기
조회수 584회
library(readxl)
library(WriteXLS)
library(DBI)
library(dplyr)
library(dbplyr)
library(scales)
library(RMySQL)
library(ggplot2)
library(tidyquant)
library(shiny)
options(shiny.maxRequestSize = 30*1024^2)
ui <- fluidPage(
titlePanel("Factor Scoring"),
sidebarLayout(
sidebarPanel(
numericInput(
inputId = 'Year',
label = 'Year',
value = 2019
),
numericInput(
inputId = 'Quarter',
label = 'Quarter',
value = 2
),
dateInput(
inputId = 'Today',
label = 'Today',
value = '2019-11-13'
)
),
mainPanel(
DT::dataTableOutput('Table1'),
DT::dataTableOutput('Table2')
)
)
)
server <- function(input,output,session){
reactive({
output$Table1 <- DT::renderDataTable({
conn <- dbConnect(MySQL(), host = "xxxx", port=3306, user = "root", password = "xxxx", db = "FactorScoringModel")
dbSendQuery(conn, "SELECT * FROM FactorScoring WHERE (year = input$Year) AND (quarter = input$Quarter)")
})
output$Table2 <- DT::renderDataTable({
conn <- dbConnect(MySQL(), host = "xxxx", port=3306, user = "root", password = "xxxx", db = "FactorScoringModel")
dbSendQuery(conn, "SELECT * FROM FactorScoring WHERE (year = input$Year) AND (quarter = input$Quarter)")
})
})
}
shinyApp(ui=ui,server=server)
다음은 FactorScoring table입니다.
r코드를 실행했을 시 r shiny 코드는 돌아가는데 왜 값이 안 뜨고 훵하니 나올까요
댓글 입력