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){

  output$Table1 <- DT::renderDataTable({

    conn <- dbConnect(MySQL(), host = "xxxx", port=3306, user = "root", password = "xxxx",     db = "FactorScoringModel")
    query<- paste("SELECT * FROM FactorScoring WHERE year =", input$Year, "AND quarter = ",     input$Quarter)
    data<-dbGetQuery(conn,query)
    dbDisconnect(conn)
    data

  })

  output$Table2 <- DT::renderDataTable({

    conn <- dbConnect(MySQL(), host = "xxxx", port=3306, user = "root", password = "xxxx",     db = "FactorScoringModel")
    query<- paste("SELECT * FROM FactorScoring WHERE year =", input$Year, "AND quarter = ", input$Quarter)
data<-dbGetQuery(conn,query)
    dbDisconnect(conn)
    data

  })



}


shinyApp(ui=ui,server=server)

위에 name에서 한글부분이 ????로 깨져 나오는데 어떻게 하면 해결이 될까요?

conn <- dbConnect(MySQL(), host = "xxxx", port=3306, user = "root", password = "xxxx", db = "FactorScoringModel",charset='utf8')방법도 해봤는데 똑같이 깨져서 나옵니다

참고로 데이터베이스에서는 한글명이 안 깨지고 제대로 올라가 있습니다.