Пожалуйста, попробуйте привести полный воспроизводимый пример в следующий раз. Вот пример кода, освещающего вашу проблему, который можно запустить как есть:
library(shiny)
ui <- fluidPage(
shinyjs::useShinyjs(),
shinyjs::extendShinyjs(text = "shinyjs.reset = function() {history.go(0)}"),
textInput("test", "test", "test"),
actionButton("reset_button", "Refresh")
)
server <- function(input, output, session) {
observeEvent(input$reset_button, {
shinyjs::js$reset()
})
}
shinyApp(ui, server)
Существует два возможных решения:
- Если вы просто хотите сбросить все входы на странице, вы можете использовать
shinyjs::reset()
- Если вы действительно хотите обновить страницу, а также сбросить входные данные, я считаю, что вы должны использовать
window.location.reload(true)
вместо history.go(0)