thedivtagguy

thedivtagguy

library(tidyverse)
library(gdata)
library(stringr)
library(readr)
library(gsubfn)
# Read in File
# This is the fixed file from Excel, but we want to do everything in R
# data <-
#   read.csv("D:/Srishti/Year 2 Semester 1/Co-Create/books.csv", header = FALSE)

thedivtagguy

library(shiny)

ui <- fluidPage(
    
    
    
    titlePanel("Srishti Library Database"),
    
    # Sidebar layout with input and output definitions ----
        

thedivtagguy

library(shiny)
library(tidyverse)
library(gdata)
library(stringr)
library(readr)
library(gsubfn)
library(waiter)
# Define UI for data upload app ----

gif <- paste0("https://media1.tenor.com/images",

thedivtagguy

# Takes in a file CSV file and outputs each row as a Markdown file with YAML front matter named after first column.
# Data in the first row of the CSV is assumed to be the column heading.
# Original work borrowed from: https://github.com/EvanLovely/csv_to_jekyll
# Adapted from https://www.bryanklein.com/blog/hugo-python-gsheets-oh-my/

# Import the python libraries.
import gspread
from oauth2client.service_account import ServiceAccountCredentials
from pathlib import Path
import os