if (FALSE) {
jscookie_src <- "https://cdnjs.cloudflare.com/ajax/libs/js-cookie/2.2.0/js.cookie.js"
ui <- fluidPage(
shiny::tags$head(
shiny::tags$script(src = jscookie_src)
),
useShinyjs(),
extendShinyjs(text = solvebio::protectedServerJS(),
functions = c("enableCookieAuth", "getCookie", "setCookie", "rmCookie"))
)
}
Run the code above in your browser using DataLab