mod_automatise_report.R

#' Module UI

#' @title mod_automatise_report_ui and mod_automatise_report_server
#' @description A shiny module.
#' @description A shiny module.
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#' @import shiny
#' @import shinydashboard
#' @keywords internal

mod_automatise_report_ui <- function(id) {
	ns <- NS(id)
	tabItem(
		tabName = "automatise_report",
		fluidRow(
		  column(
		    width = 12,
		    h2('Report Automation'),
		    p("Congratulation you have now configured your data collection quality
		      monitoring together with your cleaning and basic anonymiation."),
		    p("For this process to be effective, it needs to be performed with ",
		      strong("High Frequency"),
		      " so that the output of this process (aka a report and the 2 additional versions of your data uploaded directly on ridl)
		      is generated regularly."),
		    p("This level of automation can actually be implemented using the ",
		      tags$a(href="https://docs.posit.co/connect/user/scheduling/", "POSIT Connect Report Scheduling"),
		      ". For this you will need to get a published account on the server or
		      to share the report file for instance with support colleagues in DIMA that publish it for you"),
		    p("Once published visit",
		      tags$a(href="https://rstudio.unhcr.org", "POSIT Connect UNHCR server"),
		      " to set up the RIDL token environment variables, the scheduling and the list of recipient for the HighFrequncyChecks report")
		          )	),

		fluidRow(
		  shinydashboard::box(
		    title = "Set up report ",
		    #  status = "primary",
		    status = "info",
		    solidHeader = FALSE,
		    collapsible = TRUE,
		    #background = "light-blue",
		    width = 12,

		    checkboxInput(inputId = ns("positaccount"),
		                label = " I have a publisher account on Posit Connect",
		                width = '400px'),

		    div(
		      id = ns("hasposit"),
		      passwordInput(inputId = ns("token"),
		                      label = "Paste below your personal Posit Connect token"),

		        verbatimTextOutput(outputId = ns("validationposit")),

		        hr(),

		        actionButton( inputId = ns("connectpublish"),
		                      label = "Push your report into connect",
		                      width = "400px"  ),

		        verbatimTextOutput(outputId = ns("validationconnect"))
		      ),
		    div(
		      id = ns("noposit"),
		      downloadButton(outputId = ns("downloadnotebook"),
		                     "Download the file for the automatised report
		                     that you can then share with DIMA for publication"),

		    )

		  )
		)
	)
}

#' Module Server
#' @noRd
#' @import shiny
#' @import tidyverse
#' @keywords internal

mod_automatise_report_server <- function(input, output, session, AppReactiveValue) {
	ns <- session$ns

	observeEvent(input$positaccount, {
	  if(isTRUE(input$positaccount)) {
	    golem::invoke_js("show", paste0("#", ns("hasposit")))
	    golem::invoke_js("hide", paste0("#", ns("noposit")))
	  } else {
	    golem::invoke_js("hide", paste0("#", ns("hasposit")))
	    golem::invoke_js("show", paste0("#", ns("noposit")))
	  }
	})

}

## copy to body.R
# mod_automatise_report_ui("automatise_report_ui_1")

## copy to sidebar.R
# shinydashboard::menuItem("displayName",tabName = "automatise_report",icon = icon("user"))

## and copy to app_server.R
# callModule(mod_automatise_report_server, "automatise_report_ui_1", AppReactiveValue)