| !function(){var n="undefined"!=typeof globalThis?globalThis:"undefined"!=typeof window?window:"undefined"!=typeof global?global:"undefined"!=typeof self?self:{};function t(n){if(n.t)return n;var t=n.default;if("function"==typeof t){var e=function n(){return this instanceof n?Reflect.construct(t,arguments,this.constructor):t.apply(this,arguments)};e.prototype=t.prototype}else e={};return Object.defineProperty(e,"t",{value:!0}),Object.keys(n).forEach((function(t){var r=Object.getOwnPropertyDescriptor(n,t);Object.defineProperty(e,t,r.get?r:{enumerable:!0,get:function(){return n[t]}})})),e}var e,r,i,o={},c={},u={},s={exports:{}};r=n,i=function(){var n=function(){},t="undefined",e=typeof window!==t&&typeof window.navigator!==t&&/Trident\/|MSIE /.test(window.navigator.userAgent),r=["trace","debug","info","warn","error"],i={},o=null;function c(n,t){var e=n[t];if("function"==typeof e.bind)return e.bind(n);try{return Function.prototype.bind.call(e,n)}catch(t){return function(){return Function.prototype.apply.call(e,n, |
| packages_required <- c("ckanr","stringr","dplyr","DT","listviewer","ggplot2", "purrr","glue") | |
| lapply(packages_required, require, character.only=TRUE) | |
| org_url <- "https://openbudgetsindia.org/" | |
| ckanr::ckanr_setup(url = org_url) | |
| org_connect <- ckanr::src_ckan(url = org_url) | |
| ### Check connection | |
| ckanr::ckan_version() |
| library(readr) | |
| library(dplyr) | |
| # Change These | |
| file_path <- "~/Downloads/budget_changelog_2020/changelog_2.csv" | |
| file_export_path <- "~/Downloads/budget_changelog_2020/changelog_updated.csv" | |
| changelog <- read_csv( | |
| file_path, | |
| col_types = cols( |
| library(rvest) | |
| library(readr) | |
| # This file needs to be read as text. | |
| x <- readr::read_file("~/Downloads/Chandigarh.xls") | |
| # Every file will have a table, the way it is structured in this sample. We just want to extract this table and convert it to a data frame | |
| # Check and clean the file as per the structure of the original one. Headers and Rows need to be adjusted. | |
| y <- x %>% read_html() %>% html_table(fill = TRUE) | |
| z <- y[[1]] |
| html_master <- c() | |
| for(i in 1:3){ | |
| pmjay_hospt <- 'https://hospitals.pmjay.gov.in/Search/empnlWorkFlow.htm' | |
| req_params <- list("actionFlag"= 'ViewRegisteredHosptlsNew', | |
| "search"= 'Y', | |
| "appReadOnly"= 'Y', | |
| "pageNo"= i, | |
| "searchState"= 23, | |
| "searchDistrict"= 411, | |
| "searchHospType"= -1, |
Current state in India - SPD Rules were issued under Section 43A of the IT Act -
Entities:
| args <- commandArgs(trailingOnly = TRUE) | |
| library(ggplot2) | |
| library(ggflags) | |
| bg_color = '#5A8E38' | |
| # Declaring constants ----------------------------------------------------- |
| #!/usr/bin/env Rscript | |
| args = commandArgs(trailingOnly = TRUE) | |
| # What is this: A script that assists in following best practices when starting a new project | |
| # What are these best practices: | |
| # - Creating a project is the first step, managing individual scripts is a mess | |
| # - Always have a git setup at the root of the project | |
| # - A README.md file for documentation | |
| # - A .gitignore file for ignoring files and directories, remember .DS_Store |
| convert <- function(x) { | |
| map <- c("\\[:alpha:\\]" = "a-zA-Z", "\\[:digit:\\]" = "0-9") | |
| for (i in seq_along(map)) { | |
| x <- gsub(names(map)[[i]], map[[i]], x) | |
| } | |
| x | |
| } | |
| convert("[[:alpha:]](?:(?:[[:digit:]]){1,2}(?:[[:alpha:]]){1,2})(?:(?:[[:digit:]]){6,7})") | |
| #> [1] "[a-zA-Z](?:(?:[0-9]){1,2}(?:[a-zA-Z]){1,2})(?:(?:[0-9]){6,7})" |