inst/application/functions.R

In vic-hl/paqueteTFM: What the Package Does in One 'Title Case' Line

setwd("..")
load("Data/jsonDatosGenerales.RData")
datosGenerales <- jsonlite::fromJSON(json_datosGenerales)
load("Data/jsonPorcentajesPresentados.RData")
datosGrafica <- jsonlite::fromJSON(json_porcentajesPresentados)

t_datos_generales <- function(titulo){
  json <- jsonlite::toJSON(datosGenerales[[titulo]])
  return(json)
}

g_presentados_asignatura <- function(titulo, curso){
  json <- jsonlite::toJSON(datosGrafica[[titulo]][[curso]])
  return(json)
}