[英]If Statement in Shiny based on values in reactive
我正在通過比較電子郵件中發送的代碼和用戶提交的代碼來在我的應用程序中構建身份驗證部分。 我嘗試通過在react(),isolate(),renderTable()中使用添加if語句。 我或者得到的值應該是在電抗部分錯誤中,或者應用程序根本不響應。 以下是我在Server.R中擁有的內容 ,該應用程序完全沒有響應,沒有錯誤。
shinyServer(function(input, output, session) {
myData <- reactive({
req(input$Id)
#connect to the database, get the data, res
#send an email with random number, rnd
list(res,rnd)
})
output$tbTable <- renderTable({req(input$Auth)
if (input$AuthCode==myData()$rnd) {
myData()$res
}
else{
as.data.frame(c("Authentication Failed"))
}
})
output$downloadData <- downloadHandler(
filename = function() {
paste(input$Id, " filname.xlsx", sep = "")
},
content = function(file) {
write.csv(myData(), file, row.names = FALSE)
}
)#this part need to depend on the if-statement as well
}
)
UI.R
ui <- shinyUI(fluidPage(title = "aaa",
titlePanel("aaa"),
sidebarLayout(
sidebarPanel(
textInput("Id", "Enter Acct Name below"),
submitButton(text="Submit"),
tags$hr(),
numericInput("AuthCode",label="Authentication",value=""),
actionButton("Auth",label="Submit"),
tags$hr(),
tags$hr(),
downloadButton("downloadData", "Download Data")
),
mainPanel(
tabsetPanel(
tabPanel("Data", tableOutput("tbTable"))
))
),
)
)
我想我已經確定要做什么。 請檢查。 我做了以下更改
將您的submitButton
替換為actionButton
Acc
並使用observeEvent
進行調用。
現在,單擊第二個按鈕時,還可以通過observeEvent
觸發身份驗證
Excel擴展名在write.csv
中write.csv
因此更改了擴展名。
shinyServer(function(input, output, session) {
# the first button will trigger this
observeEvent(input$Acc,{
# myData <- reactive({
req(input$Id)
#connect to the database, get the data, res
#send an email with random number, rnd
#list(res,rnd)
myData <<- list(res = 123,rnd = 345) #passing test value and storing it as global variable for accessing in other functions
# })
cat("mydata done")
})
# the second button will trigger this
observeEvent(input$Auth,{
output$tbTable <- renderTable({
#req(input$Auth)
if (input$AuthCode==myData$rnd) {
myData$res
}
else{
#as.data.frame(c("Authentication Failed"))
shiny::showModal(modalDialog(
title = "Important message",
"Authentication Failed!"
))
}
})
})
output$downloadData <- downloadHandler(
filename = function() {
paste(input$Id, " filname.csv", sep = "") #renamed it to csv because write.csv writes to csv not excel
},
content = function(file) {
write.csv(myData, file, row.names = FALSE)
}
)#this part need to depend on the if-statement as well
}
)
ui <- shinyUI(fluidPage(title = "aaa",
titlePanel("aaa"),
sidebarLayout(
sidebarPanel(
textInput("Id", "Enter Acct Name below"),
actionButton("Acc",label="Click to send code"),
tags$hr(),
numericInput("AuthCode",label="Authentication",value=000),
actionButton("Auth",label="Submit"),
tags$hr(),
tags$hr(),
downloadButton("downloadData", "Download Data")
),
mainPanel(
tabsetPanel(
tabPanel("Data", tableOutput("tbTable"))
))
)
)
)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.