xiaodaigh

library(shiny)

disableActionButton <- function(id,session) {
  session$sendCustomMessage(type="jsCode",
                             list(code= paste("$('#",id,"').prop('disabled',true)"
                                    ,sep="")))
}

shinyServer(function(input, output,session) {
  

xiaodaigh

#install.packages(c("devtools","svSockets")) # if not already installed
#devtools::install_github("gosocket","analytixware") # if not already installed
#devtools::install_github("shinysky","analytixware") # if not already installed

library(shiny)
library(shinysky)
library(gosocket)

# Define server logic required to generate and plot a random distribution
shinyServer(function(input, output,session) {

xiaodaigh

# to run this firstly set up the MinIO server
# on Windows download this https://dl.min.io/server/minio/release/windows-amd64/minio.exe
# download("https://dl.min.io/server/minio/release/windows-amd64/minio.exe")

# to run minio make sure the executable is in the PATH
# then run
# ;minio.exe server /path/to/minio/data
# e.g. minio.exe server c:/minio-data/

using Minio, Parquet, Parquet2, DataFrames, AWSS3

xiaodaigh

library(shiny)

shinyServer(function(input, output, session) {
  
  # Partial example
  output$meh <- renderPrint({
    print("Meh --- ")
    print(input$myTextInput )
    print(input$passInput )
  })

xiaodaigh

apt-get update && apt-get upgrade -y
apt-get install wget -y
apt-get install proot -y
apt-get install git -y
cd ~
git clone https://github.com/MFDGaming/ubuntu-in-termux.git
cd ubuntu-in-termux
chmod +x ubuntu.sh
./ubuntu.sh
cp ~/ubuntu-in-termux/resolv.conf ~/ubuntu-in-termux/ubuntu-fs/etc/

xiaodaigh

library(shiny)

# Define server logic for random distribution application
shinyServer(function(input, output) {
  
	# Reactive expression to generate the requested distribution. This is 
	# called whenever the inputs change. The renderers defined 
	# below then all use the value computed from this expression
	data <- reactive({  
		dist <- switch(input$dist,

xiaodaigh

using Gumbo, Cascadia, HTTP
using Serialization

urls= ["https://www.shicimingju.com/shicimark/tangshisanbaishou.html"]
urls = vcat(urls, ["https://www.shicimingju.com/shicimark/tangshisanbaishou_$(i)_0__0.html" for i in 2:16])


function get_chars(poem::Vector{<:AbstractString})::Set{Char}
    mapreduce(Set, union, poem)
end

xiaodaigh

using Revise
includet("utils.jl")

function remove_player!(team)
    if length(team) == 1
        team.players = []
    else
        team.players = team.players[2:end]
    end
    team

xiaodaigh

struct Player
    name::String
    rating::Int
end


struct Match
    best_of::Int
end

xiaodaigh

x = rand(1:1_000_000, 1_000_000_000)

using SortingLab
fsort!(x)

function unroll_loop(x)
    count = 0

    @inbounds count += x[1] != x[2]
    @inbounds count += x[2] != x[3]