ImkeF

let
    // Fetches your function library from a csv-file: 3 columns "Column1" is autogenerated and will be removed, "GetCode" hold code and "Name" the name of the function
    // Adjust "Path" to your own machine:
    Path = "C:\Users\imkef\Desktop\ImkesFunctions.csv",
    // The Encoding parameters might need to be adjusted to local settings
    Source = Csv.Document(File.Contents(Path),[Delimiter=",", Columns=3, Encoding=1252, QuoteStyle=QuoteStyle.Csv]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", Int64.Type}, {"Column2", type text}, {"Column3", type text}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Removed Columns" = Table.RemoveColumns(#"Promoted Headers",{"Column1"}),
    EvaluateFunction = Table.AddColumn(#"Removed Columns", "Value", each Expression.Evaluate([GetCode], #shared)),

ImkeF

let func =  
 // fnStat.Trend
// Author: Imke Feldmann - http://www.thebiccountant.com/ - Link to blogpost: http://wp.me/p6lgsG-Fd

(Actuals as table, FCPeriods as list) =>
let
    FCPeriods = Table.FromList(FCPeriods, Splitter.SplitByNothing()),
    #"Run R Script" = R.Execute("y <- as.matrix(Actuals[1]) 
                                 x <- as.matrix(Actuals[2])
                                 trendline <- fitted(lm(y ~ x))

ImkeF

// Removes all duplicate separators within a string. If optional "TrimEnds" is set to "yes" the (single remaining) separators will be removed from the start and end as well.
(MyText as text, Separator as text, optional TrimEnds as text) as text =>
let
TransformTextToList = List.Buffer(Text.ToList(MyText)),

Result = List.Accumulate(TransformTextToList, // List that will be iterated through
			 "", // a starting value (if necessary, here we leave it blank)
			 (resultSoFar, current) => if Text.End(resultSoFar,1) = Separator and current = Separator then resultSoFar else resultSoFar&current // operation that will be performed at each iteration-step
			 ),
TrimEnd = if TrimEnds = "yes" then Text.TrimStart(Text.TrimEnd(Result, Separator), Separator) else Result

ImkeF

let func =  
 (Value as any) as text =>

    let
        t = Value.Type(Value),

        nonNullableType = Type.NonNullable(t),

        TypeDescription = 
         if Type.Is(nonNullableType, type number) then "number"

ImkeF

based on https://en.wikipedia.org/wiki/ISO_week_date#Calculating_the_week_number_of_a_given_date

M / Power Query doesn't have a native ISO8601 Week Number function, and DAX's weeknum(x, 21) doesn't give the correct ISO Week-Year.

Date → ISO Week

/*
based on <https://en.wikipedia.org/wiki/ISO_week_date#Calculating_the_week_number_of_a_given_date>

ImkeF

let func =   
 (optional SelectedType as type) =>
let

/* Debug Parameters
    SelectedType = type table,
End of debug parameters */

    Source = #shared,
    ToTable = Record.ToTable(Source),

ImkeF

let func =  
(TableColumn as list, optional SourceNameColumn as list) =>
let
AddIDs = 
if 
SourceNameColumn=null 
then 
TableColumn 
else 
let

ImkeF

let 
// ----------------------- Documentation ----------------------- 
documentation_ = [
Documentation.Name =  " Dates.ListDateIntervals
", Documentation.Description = " Creates a list of dates according to the chosen interval between Start and End. Allowed values for 3rd parameter: ""Year"", ""Quarter"", ""Month"", ""Week"" or ""Day"".
" , Documentation.LongDescription = " Creates a list of dates according to the chosen interval between Start and End. The dates created will always be at the end of the interval, so could be in the future if today is chosen.
", Documentation.Category = " Table
", Documentation.Source = " http://www.thebiccountant.com/2017/12/11/date-datesbetween-retrieve-dates-between-2-dates-power-bi-power-query/ . 
", Documentation.Author = " Imke Feldmann: www.TheBIccountant.com . 
", Documentation.Examples = {[Description =  " see http://www.thebiccountant.com/2017/12/11/date-datesbetween-retrieve-dates-between-2-dates-power-bi-power-query/ .

ImkeF

let func =   
 (optional SelectedType as type, optional ExcludeList as list) =>
let

/* Debug Parameters
    SelectedType = type table,
    ExcludeList = null,
End of debug parameters */
    
    //By default, the query "GetAllQueries" will be excluded, so if you name this query so, you get everything BUT this query.

ImkeF

(PQTable as table) =>



let

    #"Added Index" = Table.AddIndexColumn(PQTable, "Index", 0, 1),

    #"Duplicated Column" = Table.DuplicateColumn(#"Added Index", "Column1", "Column1 - Copy"),