Spaces:

pajuan
/

runr

Runtime error

runr / server.R

modify

4a5de2f verified over 2 years ago

3.36 kB

source('init.R')
# server.R
library(shiny)
library(shinythemes)  
library(shinyAce)
library(shinyjs)
# Design 2:
renderLogEntry <- function(entry){
  paste0(entry, " - ", date())
}


withConsoleRedirect <- function(containerId, expr) {
  txt <- capture.output(results <- expr, type = "output")
  if (length(txt) > 0) {
    appendTabsetPanel(session, "console", tabPanel("Console", verbatimTextOutput(paste0(txt, "\n"))))
  }
  results
}



shinyServer(function(input, output, session) {
  
  # Ocultar el panel lateral al inicio
  hide("sidebar")
  observeEvent(input$theme_button, {
    showModal(modalDialog(
      title = "Elige un tema",
      shinythemes::themeSelector()
    ))
  })
  
  # Agrega este observador para actualizar el tema del editor
  observe({
    updateAceEditor(
      session,
      "rmd",
      theme = input$theme_code
    )
  })
  # Evaluar el código
  output$knitDoc <- renderUI({
    input$eval
    HTML(knitr::knit2html(text = isolate(input$rmd), quiet = TRUE))
  })
  
  #clear the editor
  observeEvent(input$clear,{
    updateAceEditor(session,'rmd',value = '')
  })
  
  #Open chunk
  observeEvent(input$open_chunk,{
    delay(3000,{
      updateAceEditor(session,'rmd',value = paste(isolate(input$rmd),"\n```{r}\n\n```\n",sep = ''))
    })
    #ADD DELAY TO THE SERVER SAVE THE EDITOR
    })
  
  #Hotkeys
  
  ## Open chunk hotkey
  observeEvent(input$rmd_open_chunk, {
    
    delay(3000, {
      # Get the current value of the editor
      old_val <- isolate(input$rmd)
      
      # Define the new chunk
      new_chunk <- "\n```{r}\n\n```\n"
      
      # Insert the new chunk at the end of the current value
      new_val <- paste(old_val, new_chunk, sep = "")
      
      # Update the editor with the new value
      updateAceEditor(session, 'rmd', value = new_val)
    })

  })
  
  ## Open help menu hotkey
  observeEvent(input$rmd_help_key, {
    # Mostrar el menú de ayuda
    showModal(modalDialog(
      title = "Help Menu",
      h2("Hot-Keys"), # Título del menú de ayuda
      "Use the following hot-keys:", # Descripción de los hot-keys
      tags$ul(
        tags$li("Ctrl-Alt-I: Open Chunk"), # Hot-key para abrir un nuevo bloque de código
        tags$li("Ctrl-F: Buscar y Reemplazar"), # Hot-key para guardar el código
        tags$li("F1: Help Menu"), # Hot-key para abrir el menú de ayuda
        tags$li("Ctrl-Z: Undo"), # Hot-key para deshacer la última acción
        tags$li("Ctrl-Y: Redo"), # Hot-key para rehacer la última acción
      )
    ))
  })  
  # Agrega estos manejadores de descarga para los botones save_code y save_knit
  output$save_code <- downloadHandler(
    filename = function() {
      paste("code-", Sys.Date(), ".Rmd", sep="")
    },
    content = function(file) {
      writeLines(input$rmd, file)
    }
  )
  
  output$save_knit <- downloadHandler(
    filename = function() {
      paste("knit-", Sys.Date(), ".html", sep="")
    },
    content = function(file) {
      # Guarda el contenido del editor Ace en un archivo temporal
      tmp_file <- tempfile(fileext = ".Rmd")
      writeLines(input$rmd, tmp_file)
      
      # Renderiza el archivo temporal a HTML
      rmarkdown::render(input = tmp_file, output_file = file, output_format = "html_document")
    }
  )
  # Toggle sidebar
  observeEvent(input$toggleSidebar, {
    toggle("sidebar")
  })
})

	source('init.R')
	# server.R
	library(shiny)
	library(shinythemes)
	library(shinyAce)
	library(shinyjs)
	# Design 2:
	renderLogEntry <- function(entry){
	paste0(entry, " - ", date())
	}


	withConsoleRedirect <- function(containerId, expr) {
	txt <- capture.output(results <- expr, type = "output")
	if (length(txt) > 0) {
	appendTabsetPanel(session, "console", tabPanel("Console", verbatimTextOutput(paste0(txt, "\n"))))
	}
	results
	}



	shinyServer(function(input, output, session) {

	# Ocultar el panel lateral al inicio
	hide("sidebar")
	observeEvent(input$theme_button, {
	showModal(modalDialog(
	title = "Elige un tema",
	shinythemes::themeSelector()
	))
	})

	# Agrega este observador para actualizar el tema del editor
	observe({
	updateAceEditor(
	session,
	"rmd",
	theme = input$theme_code
	)
	})
	# Evaluar el código
	output$knitDoc <- renderUI({
	input$eval
	HTML(knitr::knit2html(text = isolate(input$rmd), quiet = TRUE))
	})

	#clear the editor
	observeEvent(input$clear,{
	updateAceEditor(session,'rmd',value = '')
	})

	#Open chunk
	observeEvent(input$open_chunk,{
	delay(3000,{
	updateAceEditor(session,'rmd',value = paste(isolate(input$rmd),"\n```{r}\n\n```\n",sep = ''))
	})
	#ADD DELAY TO THE SERVER SAVE THE EDITOR
	})

	#Hotkeys

	## Open chunk hotkey
	observeEvent(input$rmd_open_chunk, {

	delay(3000, {
	# Get the current value of the editor
	old_val <- isolate(input$rmd)

	# Define the new chunk
	new_chunk <- "\n```{r}\n\n```\n"

	# Insert the new chunk at the end of the current value
	new_val <- paste(old_val, new_chunk, sep = "")

	# Update the editor with the new value
	updateAceEditor(session, 'rmd', value = new_val)
	})

	})

	## Open help menu hotkey
	observeEvent(input$rmd_help_key, {
	# Mostrar el menú de ayuda
	showModal(modalDialog(
	title = "Help Menu",
	h2("Hot-Keys"), # Título del menú de ayuda
	"Use the following hot-keys:", # Descripción de los hot-keys
	tags$ul(
	tags$li("Ctrl-Alt-I: Open Chunk"), # Hot-key para abrir un nuevo bloque de código
	tags$li("Ctrl-F: Buscar y Reemplazar"), # Hot-key para guardar el código
	tags$li("F1: Help Menu"), # Hot-key para abrir el menú de ayuda
	tags$li("Ctrl-Z: Undo"), # Hot-key para deshacer la última acción
	tags$li("Ctrl-Y: Redo"), # Hot-key para rehacer la última acción
	)
	))
	})
	# Agrega estos manejadores de descarga para los botones save_code y save_knit
	output$save_code <- downloadHandler(
	filename = function() {
	paste("code-", Sys.Date(), ".Rmd", sep="")
	},
	content = function(file) {
	writeLines(input$rmd, file)
	}
	)

	output$save_knit <- downloadHandler(
	filename = function() {
	paste("knit-", Sys.Date(), ".html", sep="")
	},
	content = function(file) {
	# Guarda el contenido del editor Ace en un archivo temporal
	tmp_file <- tempfile(fileext = ".Rmd")
	writeLines(input$rmd, tmp_file)

	# Renderiza el archivo temporal a HTML
	rmarkdown::render(input = tmp_file, output_file = file, output_format = "html_document")
	}
	)
	# Toggle sidebar
	observeEvent(input$toggleSidebar, {
	toggle("sidebar")
	})
	})