Shiny 앱에서 맞춤 메시지 또는 반응 버튼으로 오류 메시지 숨기기
타자기 작가
앱을 실행하면 기본 화면에 오류가 발생합니다. 앱이 작동 할 때 오류에 대해 걱정하지 않습니다. 입력을 선택하면 앱이 잘 작동합니다.
내가하고 싶은 것은 기본 화면에서 오류를 숨기는 것입니다. 이것은 내가 받고있는 오류 메시지입니다.
Error: <text>:2:0: unexpected end of input
1: admit ~
^
앱을 반응 형으로 유지하고 싶기 때문에이 문제를 해결하는 버튼을 추가하고 싶지 않습니다. 하지만 버튼을 추가하고 반응 형을 유지하는 방법이 있다면 그 아이디어가 마음에 듭니다.
또한 "종속 및 독립 변수 선택"또는 이와 유사한 것과 같은 기본 화면에 사용자 지정 메시지를 표시하는 아이디어에 열려 있습니다.
library(shiny)
mydata <- read.csv("https://stats.idre.ucla.edu/stat/data/binary.csv")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("input1", "Dependent Variable", choices = names(mydata)),
selectInput("input2", "Independent Variable(s)", choices = names(mydata), multiple = TRUE)
),
mainPanel(
verbatimTextOutput("output2"),
verbatimTextOutput("output1")
)
)
)
server <- function(input, output) {
left_vars <- reactive({input$input1})
right_vars <- reactive({
rights = input$input2
rights <- paste(rights, collapse=" + ")
})
log_formula <- reactive({as.formula(paste(left_vars(), " ~ ", right_vars()))})
output$output1 <- renderPrint({summary(glm(formula = log_formula(), data = mydata, family = "binomial"))})
output$output2 <- renderPrint({
paste(paste0(left_vars(), " ~", right_vars()))
})
}
shinyApp(ui = ui, server = server)
Jessefleri
반응 용어에 유효성 검사를 추가하면 조건문이있는 사용자 지정 오류 메시지를 작성할 수 있습니다.
library(shiny)
mydata <- read.csv("https://stats.idre.ucla.edu/stat/data/binary.csv")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("input1", "Dependent Variable", choices = names(mydata)),
selectInput("input2", "Independent Variable(s)", choices = names(mydata), multiple = TRUE)
),
mainPanel(
verbatimTextOutput("output2"),
verbatimTextOutput("output1")
)
)
)
server <- function(input, output) {
left_vars <- reactive({
validate(
need(input$input1, "Please enter a dependant variable"))
input$input1})
right_vars <- reactive({
validate(
need(input$input2, "Please enter an independant variable"))
rights = input$input2
rights <- paste(rights, collapse=" + ")
})
log_formula <- reactive({as.formula(paste(left_vars(), " ~ ", right_vars()))})
output$output1 <- renderPrint({summary(glm(formula = log_formula(), data = mydata, family = "binomial"))})
output$output2 <- renderPrint({
paste(paste0(left_vars(), " ~ ", right_vars()))
})
}
shinyApp(ui = ui, server = server)
편집 : 동일한 경고가 두 번 표시되는 이유가 궁금한 경우. 독립 변수가 선택 될 때까지 완료 할 수없는 렌더링 기능이 두 개 있기 때문입니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
관련 기사
Related 관련 기사
- 1
mvc의 다른보기에서보기의 오류 또는 메시지 반환
- 2
Shiny에서 제출 버튼으로 결과 숨기기 / 표시
- 3
Powershell-3 행에서 발생하는 오류 메시지 표시 숨기기
- 4
Firebase 인증을위한 맞춤 오류 메시지 만들기
- 5
Shiny 반응식에서 환경 해시에 액세스하는 중에 오류가 발생했습니다. 오류 메시지 : 가져 오기 오류 : 잘못된 첫 번째 인수
- 6
라디오 버튼 값을 기반으로 테이블 행 표시 또는 숨기기
- 7
라디오 버튼 값을 기반으로 테이블 행 표시 또는 숨기기
- 8
Jasmine 예상 기능에서 오류 메시지를 숨기는 방법
- 9
서버에서 Android 장치로 또는 그 반대로 메시지 보내기
- 10
Istio에서 정책 실패시 오류 메시지 숨기기
- 11
자바 스크립트에서 오류 메시지를 숨기는 방법
- 12
그렇지 않으면 메서드를 충돌시키는 수학 오류 (0으로 나누기 등) 반환
- 13
양식에서 성공 및 오류 메시지 숨기기
- 14
GRUB에서 오류 메시지 숨기기
- 15
입력 필드를 기반으로 오류 메시지 분류
- 16
스프레드 시트에서 검색어 가져 오기 범위를 사용할 때 맞춤 메시지를 표시하는 방법
- 17
iOS 모바일 앱의 MS Teams에서 "가운데"또는 "오른쪽"에 대한 적응 형 카드 가로 맞춤 속성이 작동하지 않음
- 18
PHP 기반 시스템에서 동일한 페이지에 로그인 오류 메시지를 표시하는 방법은 무엇입니까?
- 19
Ubuntu Gnome 15.10에서 시작하는 동안 로그 메시지 숨기기
- 20
Ubuntu Gnome 15.10에서 시작하는 동안 로그 메시지 숨기기
- 21
Ubuntu Gnome 15.10에서 시작하는 동안 로그 메시지 숨기기
- 22
JSON으로 논리 앱 메시지 보내기 오류
- 23
C 코드로 시작하여 오류 메시지에 멈춤
- 24
PhoneGap에서 오류 메시지 받기
- 25
다른 테이블의 정보를 기반으로 mysql에서 행을 삭제하면 이해할 수없는 오류 메시지가 표시됨
- 26
데이터 모델을 기반으로하는 목록 목록에서 CSV를 만들 때 오류 메시지가 표시됩니다.
- 27
두 개의 라디오 버튼을 기반으로 div 표시 및 숨기기
- 28
Django, 암호가 일치하지 않는 오류 메시지가 표시되지 않습니다. 맞춤형 UserAuth 앱
- 29
Yii2의 오류 메시지에서 파일 시스템 경로를 숨기는 방법이 있습니까?
몇 마디 만하겠습니다