📊 R에서 실시간 데이터 수집 및 시각화 시스템 구축하기

# 실시간 데이터 수집 및 시각화 시스템
library(shiny)
library(ggplot2)
library(readr)

# 서버 로직
data <- reactive({
  # 파일 경로 설정
  file_path <- "data_stream.csv"

  # 파일 존재 여부 확인
  if (!file.exists(file_path)) {
    stop("데이터 파일이 없습니다. ", file_path, " 파일을 준비해 주세요.")
  }

  # 데이터 읽기
  read_csv(file_path)
})

# 시각화 함수
visualize_data <- function(data_df) {
  p <- ggplot(data_df, aes(x = timestamp, y = value)) +
    geom_line() +
    labs(title = "실시간 데이터 시각화", x = "시간", y = "값") +
    theme_minimal()

  return(p)
}

# UI 정의
ui <- fluidPage(
  titlePanel("실시간 데이터 시각화 시스템"),
  sidebarLayout(
    sidebarPanel(
      actionButton("update", "최신 데이터 업데이트")
    ),
    mainPanel(
      plotOutput("data_plot")
    )
  )
)

# 서버 정의
server <- function(input, output) {
  observeEvent(input$update, {
    tryCatch({
      # 데이터 로드 및 시각화
      data_df <- data()
      plot <- visualize_data(data_df)
      output$data_plot <- renderPlot({
        print(plot)
      })
    }, 
    error = function(e) {
      showModal(modalDialog(
        title = "오류 발생",
        message = paste("데이터 로드 중 오류가 발생했습니다.", e$message),
        footer = tags$button("확인", class = "btn btn-primary" , onclick = "window.location.href='/'")
      ))
    }
    )
  })
}

# 앱 실행
shinyApp(ui = ui, server = server)