Olá pessoal, tudo bem?
Estamos trabalhando num app no shinyapps em que inserimos um login utilizando o pacote “shinymanager”. A ideia é fazer um upload de um arquivo PDF e o aplicativo criar uma série de visualizações
Criamos a estrutura no serve:
# Server-Login ------------------------------------------------------------
if(login_screen){
res_auth <- secure_server(
check_credentials = check_credentials(credenciais)
)
output$auth_output <- renderPrint({
reactiveValuesToList(res_auth)
})
}
})
E criamos essa estrutura na UI:
# UI-Login ----------------------------------------------------------------
if(login_screen) {
shinymanager::set_labels(
language = "pt-BR",
"APP" = "Faça o login",
"Usuário:" = "Insira o nome de seu usuário",
"Senha" = "Insira a senha de acesso")
shinymanager::secure_app(
language = "pt-BR",
theme = shinythemes::shinytheme("paper"),
tags_top = div(
tags$img(
src = "endereco_git",
width = 200),
h3(strong("APP"))
),
ui = ui,
head_auth = tags$style(
HTML(
".panel-body { padding: 50px; }",
"#auth-shinymanager-auth-head { display: none;}",
""
)
)
)
} else {
ui
}
Quando queremos apagar o PDF, usamos um botão para que ao ser clicado, reinicia o aplicativo. O problema é que ao reiniciar, ele volta para o login, só que queríamos que ele apenas apagasse o pdf e pudesse ser reutilizado novamente. Veja o código:
dashboardSidebar(
sidebarMenu(
fluidRow(box(
width = 12,
h5("Envio de arquivo PDF (.pdf)"),
fileInput(
'SELECTFILE',
'Insira um arquivo (tamanho máximo de 5MB):',
multiple = FALSE,
accept = c(".pdf")
),
actionButton("SHOW_UPLOAD", "Ajuda"),
tags$button("Atualizar", id="restart",
type="button",
class="btn btn-danger action-button",
**onclick="history.go(0)"**),
#actionButton("restart","Atualizar", icon = icon('refresh')),
)),
Alguém tem alguma ideia de como resolver esse problema, não necessariamente usando essa abordagem?