rshiny mysql 한글깨짐문제
조회수 914회
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')방법도 해봤는데 똑같이 깨져서 나옵니다
참고로 데이터베이스에서는 한글명이 안 깨지고 제대로 올라가 있습니다.
댓글 입력