Serdar Balcı sbalci

🔬

🔬👀📑🗃📊🏨🗄📇📖⚗📝🎶📈📉📃🖍🔬🔬🏋🏻‍♂🚴🏻‍♂🚙👨‍💻🤷‍♂📸📺🎛🔭🔬💊🔐🍫🌸

MD, Pathologist https://www.linkedin.com/in/serdar-balci-md-pathologist/

sbalci / analyze_nuclei.py

Created May 10, 2025 13:59 — forked from kmboehm/analyze_nuclei.py

Analyze HoverNet outputs

	import pandas as pd
	import torch
	import h5py
	from openslide import OpenSlide
	import os
	import numpy as np
	from joblib import Parallel, delayed
	from features import extract_features_single_tile
	import json
	from scipy.stats import mannwhitneyu

sbalci / serve.r

Created December 5, 2024 09:08 — forked from J-Moravec/serve.r

Implementation of a local server for static website using the R's internal httpd server.

	error404 = paste0(
	"<!DOCTYPE html>",
	"<html lang=\"en\">",
	"<head>",
	" <meta charset=\"UTF-8\">",
	" <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">",
	" <title>Resources not found</title>",
	"</head>",
	"<body>",
	" <div class=\"main\">",

sbalci / webr-experiments.R

Created April 8, 2023 19:31 — forked from hrbrmstr/webr-experiments.R

Janky R script to create the HTML page for https://rud.is/webr-experiments/

	#!/usr/bin/env Rscript

	library(httr, include.only = c("GET", "add_headers", "content"))
	library(jsonlite, include.only = c("fromJSON", "write_json"))
	library(glue, include.only = c("glue"))

	GITHUB_TOKEN <- Sys.getenv("GITHUB_TOKEN")

	JSON_FILE <- "webr-experiments.json"
	HTML_FILE <- "webr-experiments/index.html"

sbalci / il.csv

Created February 19, 2023 19:38 — forked from mebaysan/il.csv

Türkiye İller CSV

sbalci / connected_ggiraph.R

Created January 29, 2023 11:12 — forked from AlbertRapp/connected_ggiraph.R

connected_ggiraph.R


	library(dplyr)
	library(ggplot2)
	library(patchwork)
	library(ggiraph)

	dat <- gapminder::gapminder \|>
	janitor::clean_names() \|>
	mutate(
	# ID that is shared for boxplots (this one uses factors, i.e. numbers, as ID instead of continents)

sbalci / this_file_path.R

Created December 3, 2022 19:47 — forked from jasonsychau/this_file_path.R

R - get this file path

	# a combination of
	# https://stackoverflow.com/questions/1815606/determine-path-of-the-executing-script/15373917#15373917
	# https://stackoverflow.com/questions/1815606/determine-path-of-the-executing-script/7585599#7585599
	# https://stackoverflow.com/questions/47044068/get-the-path-of-current-script/47045368#47045368
	# https://stackoverflow.com/questions/53512868/how-to-automatically-include-filepath-in-r-markdown-document/53516876#53516876
	stub <- function() {}
	thisPath <- function() {
	cmdArgs <- commandArgs(trailingOnly = FALSE)
	if (length(grep("^-f$", cmdArgs)) > 0) {
	# R console option

sbalci / check-rproj-dupes.R

Created July 9, 2022 19:45 — forked from matt-dray/check-rproj-dupes.R

Check for open RStudio Projects that have the same name (macOS only for now)

	check_rproj_dupes <- function() {

	os <- .Platform$OS.type

	if (os == "unix") {

	ps_out <- system("ps -e", intern = TRUE)
	ps_rproj <- ps_out[grepl(".Rproj", ps_out)]
	ps_split <- strsplit(ps_rproj, "\\s")
	rproj_paths <- lapply(ps_split, function(x) x[grepl(".Rproj$", x)])

sbalci / nycflights_calender.qmd

Created July 9, 2022 14:59 — forked from AlbertRapp/nycflights_calender.qmd

NYC flights calendar plot

	library(tidyverse)
	color_palette <- thematic::okabe_ito(8)
	flights <- nycflights13::flights

	counts <- flights %>%
	mutate(
	date = lubridate::make_date(year = year, month = month, day = day)
	) %>%
	count(date) %>%
	mutate(

sbalci / dialog.html

Created February 25, 2022 14:07 — forked from coinsandsteeldev/dialog.html

Google Sheets script to allow multi-select in cells with data-validation (adapted from https://www.youtube.com/watch?v=dm4z9l26O0I)

	<!DOCTYPE html>
	<html>
	<head>
	<script>
	var data
	var formId = 'form'

	function drawForm() {
	if (!data) return
	var outputEl = document.getElementById(formId);

sbalci / dialog.html

Created February 25, 2022 14:07 — forked from arthurattwell/dialog.html

Google Sheets script to allow multi-select in cells with data-validation (adapted from https://www.youtube.com/watch?v=dm4z9l26O0I)

	<div style="font-family: sans-serif;">
	<? var data = valid(); ?>
	<form id="form" name="form">
	<? if(Object.prototype.toString.call(data) === '[object Array]') { ?>
	<? for (var i = 0; i < data.length; i++) { ?>
	<? for (var j = 0; j < data[i].length; j++) { ?>
	<input type="checkbox" id="ch<?= '' + i + j ?>" name="ch<?= '' + i + j ?>" value="<?= data[i][j] ?>"><?= data[i][j] ?><br>
	<? } ?>
	<? } ?>
	<? } else { ?>