sidhuk Goto Github PK

SidhuK <- function(Karat_Sidhu) {
    username <- "SidhuK"
    name <- "Karat Sidhu"
    website <- "https://karatsidhu.com/"
    mastodon <- "https://mstdn.science/@karat"
    twitter <- "https://twitter.com/@karat_sidhu"
    linkedin <- "https://linkedin.com/in/karatsidhu"
    code <- c(
        main_coding_languages = c("R", "Python"),
        tools = c("TidyVerse", "Quarto", "RMarkdown", "Git",
                "GitHub", "Pandas", "Jupyter"),
        frontend = c("HTML", "CSS", "Bootstrap")
    )
    scientific <- c(
        research = c("Metabolomics", "Proteomics","Mass Spectrometer"
                    "LC/MS/MS", "Cell_Biology", "Small Molecule Analysis"),
        equipment = c("Q-TOFs", "UPLC", "HPLC", "QqQ")
        academic = c("Biotechnology", "Analytical Chemistry")
    )
    personal <- c("Reading", "Painting", "Running", "Skiing")

    Karat_Sidhu <- list(username, name, website, mastodon,
                        twitter, linkedin, data.frame(code),
                        data.frame(scientific), data.frame(personal))

    return(Karat_Sidhu)
}

SidhuK(Karat_Sidhu)