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 코드는 돌아가는데 왜 값이 안 뜨고 훵하니 나올까요이미지

  • 참고로 date값은 상관쓰지 않으셔도 됩니다. 우선 이 코드에서는 안 쓰이고 추후에 쓸 예정입니다 magic0111 2019.11.15 15:12

답변을 하려면 로그인이 필요합니다.

프로그래머스 커뮤니티는 개발자들을 위한 Q&A 서비스입니다. 로그인해야 답변을 작성하실 수 있습니다.

(ಠ_ಠ)
(ಠ‿ಠ)