1. API 키 설정

.Renviron 파일에 API 키를 추가하세요:

# .Renviron 파일 열기
usethis::edit_r_environ()

# 다음 중 하나를 추가:
# ANTHROPIC_API_KEY=your_key_here
# OPENAI_API_KEY=your_key_here
# GOOGLE_API_KEY=your_key_here

# 저장 후 R 세션 재시작

2. 기본 사용법

library(jsmodule)

# AI Assistant가 포함된 gadget 실행
jsBasicGadget()

# "AI Assistant" 탭으로 이동

library(shiny)
library(jsmodule)
library(survival)

ui <- fluidPage(
  titlePanel("AI Statistical Assistant"),
  aiAssistantUI("ai")
)

server <- function(input, output, session) {
  data <- reactive(colon)
  data.label <- reactive(jstable::mk.lev(colon))

  callModule(aiAssistant, "ai",
    data = data,
    data_label = data.label
  )
}

shinyApp(ui, server)

코드 생성

• 통계 분석 코드 (회귀분석, 생존분석, 기술통계)
• 시각화 코드 (ggplot2, jskm, forestplot)
• 테이블 생성 (jstable, DT)
• jsmodule 규칙 및 모범 사례 준수

다양한 AI 제공자

• Anthropic Claude (기본값): claude-3-7-sonnet, claude-3-5-sonnet, claude-3-opus
• OpenAI GPT: gpt-4o, gpt-4-turbo, gpt-3.5-turbo
• Google Gemini: gemini-2.0-flash-exp, gemini-1.5-pro, gemini-1.5-flash

내보내기 옵션

• Word (.docx): 서식이 적용된 테이블
• PowerPoint (.pptx): 편집 가능한 벡터 그래픽 플롯
• Excel (.xlsx): 데이터가 보존된 테이블
• R Script (.R): 완전히 재현 가능한 코드

안전 기능

• 샌드박스 코드 실행 (허용된 패키지만 사용)
• 실행 전 코드 검토 및 편집
• AI 지원 오류 수정
• 파일 시스템 및 네트워크 접근 불가

데이터 접근

• AI는 data 파라미터를 통해 제공된 데이터만 접근 가능
• 생성된 코드에서 데이터는 out으로 참조됨
• 파일 업로드 데이터는 자동으로 reactive하게 처리됨

허용된 패키지

생성된 코드는 다음 패키지만 사용할 수 있습니다:

jstable, jskm, jsmodule, survival, ggplot2, ggpubr,
pROC, data.table, DT, gridExtra, GGally, forestploter,
MatchIt, timeROC

변수 구조

모듈은 변수 구조 정보를 자동으로 생성합니다: - Factor 변수 - Numeric 변수 - 사용자 정의 구조 (data_varStruct 파라미터로 제공 시)

API 키 우선순위

1. callModule()의 명시적 api_key 인자
2. UI 입력 (show_api_config = TRUE인 경우)
3. 환경 변수 (.Renviron 파일)

API 설정 모드

show_api_config 파라미터는 API 키 관리 방식을 제어합니다:

# 개발 모드 - 사용자가 UI에서 설정 가능
aiAssistantUI("ai", show_api_config = TRUE)  # 기본값

callModule(aiAssistant, "ai",
  data = data,
  data_label = data.label,
  show_api_config = TRUE
)

# 프로덕션 모드 - .Renviron에서만 API 키 읽기
aiAssistantUI("ai", show_api_config = FALSE)

callModule(aiAssistant, "ai",
  data = data,
  data_label = data.label,
  show_api_config = FALSE
)

사용자 정의 변수 구조

server <- function(input, output, session) {
  data <- reactive(lung)
  data.label <- reactive(jstable::mk.lev(lung))

  # 변수 역할 정의
  var_struct <- reactive({
    list(
      variable = names(lung),
      Base = c("age", "sex", "ph.ecog"),
      Event = "status",
      Time = "time"
    )
  })

  callModule(aiAssistant, "ai",
    data = data,
    data_label = data.label,
    data_varStruct = var_struct
  )
}

분석 컨텍스트

AI 응답을 개선하기 위해 배경 정보를 제공하세요:

callModule(aiAssistant, "ai",
  data = data,
  data_label = data.label,
  analysis_context = reactive({
    "NCCTG 폐암 임상시험 데이터.
     주요 결과: 사망까지의 시간 (status/time).
     수행능력 점수(ph.ecog)를 예측 변수로 중점 분석."
  })
)

프로덕션 배포

프로덕션 환경에서는 API 설정 UI를 숨기세요:

ui <- fluidPage(
  aiAssistantUI("ai", show_api_config = FALSE)
)

server <- function(input, output, session) {
  callModule(aiAssistant, "ai",
    data = data,
    data_label = data.label,
    show_api_config = FALSE  # .Renviron만 사용
  )
}

API 키를 찾을 수 없음

문제: “API key not configured” 오류

해결책:

1. .Renviron 파일에 올바른 변수명이 있는지 확인
2. .Renviron 편집 후 R 세션 재시작
3. 키가 유효한지 확인 (터미널에서 테스트: Sys.getenv("ANTHROPIC_API_KEY"))

코드 실행 오류

문제: 생성된 코드가 실행 실패

해결책:

1. 자동 수정을 위해 “Ask AI to Fix” 버튼 클릭
2. 실행 전 에디터에서 코드 검토
3. 데이터에 필요한 변수가 있는지 확인
4. 패키지가 설치되어 있는지 확인

Summary 결과가 너무 조각남

문제: summary() 결과가 여러 조각으로 나뉨

해결책: 최신 버전에서 수정되었습니다. jsmodule 패키지를 업데이트하세요.

텍스트 출력에 이스케이프 시퀀스 표시

문제: \n이 줄바꿈 대신 그대로 보임

해결책: 최신 버전에서 수정되었습니다. jsmodule 패키지를 업데이트하세요.

1. 구체적인 질문하기

❌ 나쁨: “이 데이터를 분석해줘”

✅ 좋음: “wt.loss를 결과변수로, age, sex, ph.ecog를 예측변수로 선형회귀분석 수행”

2. 생성된 코드 검토

“Run Code” 클릭 전에 항상 에디터에서 코드를 검토하세요

3. 컨텍스트 제공

analysis_context 파라미터를 사용하여 AI에게 데이터에 대한 배경 정보를 제공하세요

4. 적절한 모델 사용

• 간단한 작업: 빠른 모델 사용 (Sonnet, GPT-4o)
• 복잡한 분석: 고급 모델 사용 (Opus, GPT-4)

5. 반복적 개선

처음부터 다시 시작하기보다 후속 질문으로 코드를 개선하세요

예제 1: 기술통계

Q: "치료군(rx)별 기저 특성을 비교하는 Table 1을 만들어줘"

예제 2: 생존분석

Q: "time과 status를 생존 결과로, age, sex, ph.ecog를 보정하여
    Cox 회귀분석 수행"

예제 3: 시각화

Q: "치료군별로 층화한 Kaplan-Meier plot을 risk table과 함께 그려줘"

예제 4: 모델 진단

Q: "wt.loss ~ age + sex + ph.ecog 선형모델에서 VIF로 다중공선성 확인"

코드 실행 보안

# 별도 설정 불필요 - 기본값이 개발 모드
# 또는 .Renviron에 명시적으로 설정:
# DEPLOYMENT_ENV=development

# .Renviron 파일에 추가:
# DEPLOYMENT_ENV=production

# 앱 디렉토리에서
touch .production

# AppArmor 설치
sudo apt-get install apparmor apparmor-utils libapparmor-dev

# R 패키지 설치
R -e "install.packages('RAppArmor')"

API 키 보안

⚠️ 중요: API 키 처리 방식

API 키 사용 방법:

• API 키는 환경 변수(.Renviron) 또는 UI 입력에서 읽음
• UI에 입력된 경우, 키는 현재 R 세션 메모리에만 존재
• API 호출은 httr 패키지를 사용하여 AI 제공자 API로 전달

오픈소스입니다:

• 모든 코드는 https://github.com/jinseob2kim/jsmodule 에서 공개되어 감사 가능
• 숨겨진 API 키 저장이나 전송 없음
• 코드를 직접 검토할 수 있습니다

✅ 이 모듈이 API 키로 하지 않는 것:

• 어디에도 저장하지 않음
• 로그에 기록하지 않음
• AI 제공자 외에는 전송하지 않음

✅ AI 제공자로 전송되는 것:

• 사용자의 질문과 프롬프트
• 데이터 구조 정보 (변수명, 타입, 요약 통계)
• 이전 대화 기록
• 생성된 코드 (오류 수정용)

전송되지 않는 것:

• 원시 데이터 값 (질문에 명시적으로 포함하지 않는 한)
• 파일 시스템 정보

# .Renviron에 API 키 저장 (사용자 홈 디렉토리)
# 사용자 계정에만 비공개로 유지됩니다
# ANTHROPIC_API_KEY=your_key_here

권장 보안 설정

최대 보안을 위해:

# 1. .Renviron에 API 키 저장 (코드에 절대 포함하지 않음)
usethis::edit_r_environ()
# 추가: ANTHROPIC_API_KEY=your_key

# 2. 프로덕션에서는 show_api_config = FALSE 사용
aiAssistantUI("ai", show_api_config = FALSE)

# 3. .Renviron을 버전 관리에 커밋하지 않음
# .gitignore에 추가:
# .Renviron
# .Renviron.local

# 4. API 키를 정기적으로 교체 (90일마다 권장)

# 5. 제공자의 대시보드를 통해 API 사용량 모니터링