Forum Discussion

Anonymous's avatar
Anonymous
Not applicable
5 years ago
Solved

How to use R script in power query ? for populating Column using if condition in R SCRIPT

Hi I have a table A(exist in power bi data model) Table A ID Name Flag 111 alex F 222 padian T 333 heyo T 444 yope F I want to create a new column 'Flad des' u...
Need Help
  • v-xuding-msft's avatar
    v-xuding-msft
    5 years ago

    Hi Anonymous ,

     

    Please try this：

     

    
dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

     

     

     

    let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

     

     

v-xuding-msft's avatar
v-xuding-msft
Community Support
5 years ago

Hi Anonymous ,

 

Please try this：

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""